ns, — 


A PROPOS DU CLUB 
P. David 


J.J. Dhénin 


DUR ET MOU 


P. David 

J. Taillandier 
P. David 

P, Courbis 


HP28 


P. Courbis 
P. Courbis 


HP41 


M. Markov 


HP75 


J.Y. Hervé 


HP71 
J. Baudier 


F. Duret-Lamouroux 


FEVRIER 1988 
NUMERO 51 


Le numéro 40 F 


Editorial 


Compte-rendu des Assemblées Générales 
Compte-rendu d’activités - PPC Paris 1987 
Courrier du coeur 


Module infra-rouge pour HP-41 
Nouveaux calculateurs HP 
Nouveaux produits CMT 

34 Ko sur HP-28C 


Le tour du HP-28C 
PEEK et POKE pour HP-28C 


Utilitaires de gestion de disques (acte III) 


KEYLEX pour HP-75 


L’assembleur du HP-71 (acte VI) 


Modélistes, à vos tours ! 








EDITORIAL 


Chers Membres, 


Tout d’abord, permettez-moi de vous remercier au nom du Bureau pour la 
confiance que vous nous avez accordé en nous élisant lors de notre Assemblée 
Générale. 

Ce début d’année est riche en faits nouveaux. 

La présentation du Journal évolue. Vous vous en êtes peut-être déjà rendu 
compte, le journal est imprimé en format A3, puis agrafé au centre et plié. 


J'espère que cette présentation saura vous plaire. 


Nous inaugurons ce mois-ci « l’année beige ». Les 10 journaux de cette année 
auront tous des couvertures de cette couleur. 


La présentation intérieure change également : vous trouverez régulièrement les 


informations générales sur votre Club favori dans les pages centrales. 


D'autre part, Hewlett-Packard et Corvallis MicroTechnology annoncent des 
nouveautés importantes. Nous pensons qu’elles vous intéresseront. 


En vous souhaitant beaucoup de bonnes choses pour cette année, je vous laisse 
apprécier votre nouveau JPC, cuvée 1988. 


Pierre David (37) 
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COMPTE-RENDU 
DES ASSEMBLEES GENERALES 


Nos Assemblées Générales se sont déroulées le 
samedi 16 janvier 1988, de 14 à 16 heures. 


35 membres étaient présents, et 76 étaient 
représentés par les pouvoirs que vous nous avez 
envoyés. C’est dire que nous avons largement dépassé 
le quorum nécessaire. 


L'Assemblée Générale Extraordinaire a adopté les 
statuts proposés en tenant compte de deux 
modifications. Ainsi, les articles 2 et 17 sont ils à 
présent : 


Article 2 : 


Cette Association a pour but de réunir des amateurs et 
utilisateurs de l'informatique ainsi que d’assurer la mise 
en commun des connaissances informatiques de 
chacun au profit de tous. 


Article 17 : 


Une Assemblée Générale Extraordinaire peut être 
convoquée dans les mêmes conditions qu’à l'Article 16 
ou sur demande d'au moins un quart des membres 
actifs. 

Son objet ne peut être alors que de décider : 

- une modification des Statuts ; 

- une radiation ; 

- une fusion avec toute association de même objet ; 

- la dissolution. 


Le quorum d’une telle Assemblée est fixé à 20 % des 
membres actifs, présents ou représentés, et les décisions 
doivent y être prises à la majorité des 2/3. Si le quorum 
n’est pas atteint, une nouvelle Assemblée Générale 
Extraordinaire est convoquée qui délibérera sans 
contrainte. 





Les statuts ont été adoptés à l’unanimité. 


L'Assemblée Générale s’est ensuite ouverte par la 
présentation du rapport moral (voir article suivant) 
par Pierre David. 


Notre Trésorier, Janick Taillandier, nous a ensuite 
présenté le rapport financier. La situation du Club 
s’est nettement améliorée. Sauf incident majeur, il ny 
aura pas d'augmentation de la cotisation cette année. 
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L'Assemblée Générale a ensuite approuvé 
l'unanimité le rapport financier. 


p 


Le nouveau Bureau a été finalement élu (toujours 
l'unanimité !) et comprend : 


- Président : Pierre David (37) 

- Trésorier : Janick Taillandier (246) 

- Secrétaire : Jean-Jacques Dhénin (177) 
- Secrétaire : Olivier Arbey (118) 

- Secrétaire : Jacques Baudier (192) 

- Secrétaire : Eric Gengoux (108) 


Nous remercions chaleureusement les membres qui 
se sont déplacés ainsi que ceux qui nous ont envoyés 
leur pouvoir. 


Jean-Jacques Dhénin (177) 


COMPTE-RENDU D’ACTIVITES 
PPC PARIS - 1987 


L'année 1987 a été une très bonne année pour notre 
Club. De nombreuses modifications ont été apportées 
au fonctionnement du Club parmi lesquelles certaines 
sont fondamentales. 


Commençons par le Journal : vous avez pu apprécier 
la régularité de parution du Journal et la qualité de sa 
présentation. Ceux qui sont venus aux réunions ont 
toujours trouvé sur place leur exemplaire et pour les 
autres, il a été expédié le soir même. Ceci signifie 
d'une part une planification et un respect des 
contraintes que nous nous sommes fixées, mais aussi 
un gros travail, quelquefois en peu de temps. Pour 
parvenir à cette amélioration, il a fallu développer de 
nouveaux programmes. 


Comme vous le savez maintenant, la gestion du 
fichier des adhérents est à présent informatisée. Cela 
simplifie certaines tâches administratives, et 
notamment l'expédition du Journal puisque les 
étiquettes sont imprimées automatiquement et non 
plus écrites à la main comme dans les temps 
zéroïques. Bien entendu, ce fichier a été déclaré à la 
Commission Nationale de l'Informatique et des 
Libertés. 


Nous avons obtenu en mai une boîte postale. Depuis, 
le courrier est traité régulièrement chaque semaine, 
ce qui a renforcé le lien qui unit le Bureau aux 
membres du Club. 


Dans la foulée, les demandes de renseignements (par 
exemple les cartes placées dans les boîtes de HP-41) 
sont satisfaites par un document de deux pages 
beaucoup moins coûteux et plus explicite que l’envoi 
d’un ancien numéro comme dans les temps zéroïques. 


Le projet d’une Rom est considérablement avancé. A 
ce jour plus de cent mots-clef sont fixés. Le manuel 
existe en français et en anglais. Grâce aux Lex que 
vous nous avez envoyés, il a été possible de réaliser un 
module de 26 Ko, représentant 505 Ko et 25000 lignes 
de source. Actuellement, une vingtaine de personnes 
bénéficient déjà de ce module et nous espérons que 
vous serez de plus en plus nombreux. 


De nombreux Clubs étrangers sont intéressés par la 
distribution de JPC Rom. 


Tout cela fait un ensemble de bonnes raisons pour 
expliquer notre passage de 130 à 240 membres actifs. 


Cette bonne santé du Club contraste avec la 
disparition de clubs similaires au nôtre. Ainsi, 
CHHU, le club de Richard Nelson aux Etats-Unis, 
PPC aux Etats-Unix, PPC en Suisse alémanique, et 
enfin le club de Toulouse. Nous sommes à présent le 
seul club en France. 


Bien que Jean-Daniel (responsable du club de 
Toulouse) ait préconisé à ses membres de nous 
rejoindre, peu d’entre eux l'ont à présent fait. 


Par ailleurs, nos amis Danois ont organisé une 
excellente conférence (voir JPC 47) à Copenhague cet 
été. Elle démontre si besoin est la vitalité de leur 
Club. Nous étions malheureusement trop peu 
nombreux à représenter PPC Paris. 


Hewlett-Packard a sorti au début de cette année le 
HP-28C. C'est la première machine d’une série qui 
devrait redonner de l'élan au Club. Nous-mêmes 
avons publié un banc d’essai très complet, et nous 
continuerons à le faire tant que possible. De même, 
certains d’entre nous étaient présents au Sicob sur le 
stand HP même. A cette occasion, HP a publié un 
tiré à part du banc d’essai, largement distribué. 


s 


Nous avons également travaillé à la refonte des 
statuts qui commençaient à dater des temps 
zéroïques. 


Nous avons étendu le service du Club à la vente à prix 
avantageux de matériel. Ainsi, des interfaces vidéo, 
des lecteurs de cartes, etc. vous sont proposés. II s’agit 
de matériel neuf cédé par Hewlett-Packard pour un 
bon prix. 


Nous sommes toujours en possession de la 
bibliothèque européenne des utilisateurs de Genève 
(U.P.L.E.). Celle-ci contient plusieurs centaines de 
programmes pour HP-41 et date des temps zéroïques. 
Nous espérons trouver cette année des volontaires 
pour lexploiter. 


Philippe Assouline s’est proposé pour gérer et 
diffuser la bibliothèque de programmes pour HP-71 
parus dans JPC. Espérons que la mise en place se 
fera rapidement pour la satisfaction de tous. 


Nous avons suspendu récemment la ligne 
téléphonique du Club. Le peu d’appels reçus ne 
justifiait pas le coût de l'abonnement. 


Deux projets sont déjà en route pour cette nouvelle 
année. Premièrement, le journal est édité en format 
A3, plié et agraffé au centre. Deuxièmement, nous 
expérimentons actuellement la création d’un serveur 
PPC sur minitel (3615, code SER*PPC) pour une 
communication plus rapide et plus directe. 


Nous ne voyons pas se profiler à l’horizon de projet 
aussi important que JPC Rom. Dans ce domaine, 


Pavenir vous appartient. 


Le Bureau 





COURRIER DU COEUR 


Philippe Guez 

56 rue J.J. Rousseau 

75001 Paris 

Tél : (1) 45 06 25 03 (H.B.) 


Vend : 

Imprimante ThinkJet HP-2225B : 3500 F, interface 
vidéo 32 colonnes HP-82163B : 500 F, lecteur de 
cartes magnétiques pour HP-71B : 1250 F, cartes 
magnétiques pour HP-71B : 1 F pièce, convertisseur 
HP-82166A : 1250 F, module HP-IL pour HP-41 : 
1250 F, modules Ram 4 Ko pour HP-71B : 500 F 
pièce, module Games, Auto-duplication, et Math 
pour HP-41 : 150 F pièce, machine à écrire Praxis 35 
interfaçable RS232 : 3000 F. 
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Janick Taillandier 
335 rue Lecourbe 
75015 Paris 


Vend: 
Lecteur de disquettes HP-9114A : 3000 F, imprimante 
ThinkJet HP-2225B : 2500 F. 


Un module 32 Ko Ram + 32 Ko Eprom HHP pour 
HP-71 : 3000 F. 


Jean-Jacques Dhénin 
35 rue Boileau 

92120 Montrouge 
Tél: (1) 42 53 91 60 


Vend : 
HP-75 + accessoires et docs d’origine. 


Pierre Picheret 
Calmon Aiguefonde 
81200 Mazamet 


Vend : 
Imprimante ThinkJet HP-2225B : 2500 F, imprimante 
HP-82905B : 1500 F. 


Daniel Jacob 
4 rue des Blanchisseurs 
92370 Chaville 


Vend : 

HP-41C + Modules quadruple, time, X-Fonctions + 
Imprimante HP-82143A + lecteur de cartes + 
documentation (manuels, Tips and Routines, Synthetic 
Programming) + programmes nombreux avec 
documentation : le tout pour 2500 F. 


MLDL pour pratiquer lassembleur sur HP-41 (24 
Kmots Rom adressables + 8 Kmots Ram) avec 
logiciel (en assembleur) sur Eprom (MLDL Eprom 
de chez Eramco) + Manuels + listings internes de la 
HP-41 + feuillets d'initiation au Micro-code. Le tout 
pour 1000 F. 


Eric Gengoux 

8 rue de Furstenberg 
75006 Paris 

Tél : (1) 46 33 65 79 (soir) 
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Vend : 

Lecteur de cassettes HP-82161A (1983), révisé par 
HP : 1700 F. 

Imprimante thermique HP-82162A (1983) : 1200 F. 
Mini table traçante HP-IL Sicape (convertisseur 
HP-IL intégré) (1982) : 1800 F. 

Machine à écrire Brother EP44 (1983) (8 Ko, 
interface RS232) utilisable comme clavier d’un HP-71 
ou HP-75, avec logiciel pour ces machines : 1100 F. 


Jean Reibel 
9 square Victor Fleming 
92350 Le Plessis Robinson 


Cherche : 
Modules Paname, PPC Rom, Graphique, HP-IL 
development et interface HP-IL/HP-IB. 


Laurent Istria 

18 rue Pierre et Marie Curie 
75005 Paris 

Tél : (1) 46 33 71 57 


Vend : 
HP-28C : 1500 F. 


Jean-Jacques Moreau 
64 avenue de la Paix 
93150 Le Blanc-Mesnil 
Tél : (1) 48 67 33 04 


Vend: 

HP-71 : 3000 F, lecteur de disquettes HP-9114A : 
3000 F, module HP-IL pour HP-71 : 1000 F, module 
Forth / Assembleur pour HP-71 : 1000 F, modules 
Maths : 600 F, excellent état. 









DUR ET MOU 


P. David Module infra-rouge pour HP-41 
J. Taillandier Nouveaux calculateurs HP 

P. David Nouveaux produits CMT 

P. Courbis 34 Ko sur HP-28C 


IS SSQ 
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MODULE INFRA-ROUGE 
POUR HP-41 


Hewlett-Packard produit un nouveau module pour 
HP-41 : il s’agit d’un module infra-rouge pour utiliser 
l'imprimante thermique HP-82240 des HP-18C et 
HP-28C. 


L'ensemble module infra-rouge HP-82242 + 
imprimante HP-82240 est vendu aux Etats-Unis $65 
+ $135 (ou $55 + $106 chez EduCALC). C’est à 
présent le moyen le plus économique pour imprimer 
sur HP-41. 


Pierre David (37) 





NOUVEAUX CALCULATEURS HP 


Hewlett-Packard a annoncé début janvier 4 nouvelles 
machines dans la série des HP-18C et HP-28C 
maintenant bien connues. 


HP-285 


Le HP-28S (S pour Scientific) est très semblable au 
HP-28C, mais il comporte (enfin) 32 Ko de mémoire, 
et de nouvelles fonctions, en particulier pour le 
stockage et le rappel de pages graphiques, ainsi que 
des menus arborescents. 


Le prix annoncé est de $ 235, c’est à dire le prix actuel 
du HP-28C. 


HP-27S 


Disposant de deux lignes d’affichage seulement, ce 
nouveau calculateur scientifique ne possède pas de 
fonction graphique, mais 6,7 Ko de mémoire. Le jeu 
de fonctions est un sous-ensemble de celui du 
HP-28C, enrichi toutefois de fonctions de calculs 
financiers. La présentation diffère du reste de la 
gamme dans la mesure où ce calculateur est en un 
seul volet au lieu de deux rabattables comme sur les 
HP-28C et HP-18C actuels. 
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Le HP-27$S se situe donc en bas de gamme de la série 
scientique des nouveaux calculateurs. 


Le prix annoncé est de $ 110. 


HP-19B 
C’est un calculateur financier (B pour Business) qui 
reprendrait les fonctions du HP-18C et ajouterait le 


graphique, et porterait la mémoire à 6,5 Ko. 


Le prix annoncé est de $ 175. 


HP-17B 


C’est un calculateur financier simplifié, également en 
un seul volet. 


Le prix annoncé est de $ 110. 

Ces machines ne seront pas disponibles en Europe 
avant au mieux le deuxième trimestre 1988. Nous 
vous tiendrons bien sûr informés de leur sortie. 

Je tiens à remercier Vincent Delorme et Eric 


Gengoux qui m'ont très rapidement communiqué ces 
informations. 


Janick Taillandier (246) 





NOUVEAUX PRODUITS 
CMT 
La firme américaine CMT (Corvallis 
MicroTechnology, Inc) vient d'annoncer trois 


nouveaux produits. 


MC-II 


Je vous en parlais dans JPC 47 (page 3), CMT a 
annoncé officiellement la sortie de MC-IT, une 
nouvelle machine portable. Il s’agit d’un ordinateur 
basé sur le processeur 80C88, disposant de 640 Ko au 
maximum, 8 lignes de 21 caractères. 


MC:IT possède un émulateur de HP-41 permettant 
d'utiliser les programmes écrits pour cette machine. 


D'autre part, MC-IT se programme en langage C sur 
compatible PC, les programmes étant envoyés ensuite 
vers MC-IT par une liaison RS232 et le logiciel Kermit 
(fourni avec MC-IT). 


Le prix comprenant MC-II, 128 Ko de mémoire, le 
système d’exploitation et émulateur 41M en Rom est 
de $ 495 (offre spéciale de lancement) et passera 
après le 31 mars à $ 750. 


Les extensions prévues comprennent un interface 
HP-IL (disponible au deuxième trimestre 1988), un 
langage Basic (deuxième trimestre), un mode base de 
données et un mode horloge. 


D’autres modèles baptisés MC-I, MC-IV et MC-V 
seront annoncés en mars et juin 1988. 


Multicase et écran a cristaux liquides 


Le Multicase est un boîtier protecteur pour le HP-71. 
Il comprend un écran à cristaux liquides de 8 lignes 
de 40 caractères, un Ram disc HP-IL de 128 Ko 
(extensible à 512 Ko), des sorties HP-IL et RS-232, 
ainsi qu’un radiateur pour réchauffer le boîtier en cas 
de travail en extérieur à basse température. Le prix 
est de $ 925, sans HP-71. 


Le point le plus intéressant de cette annonce est 
l'afficheur à cristaux liquides, puisque celui-ci sera 
disponible isolément (en version HP-IL) au deuxième 
trimestre pour le prix de $ 295. 


Cet afficheur supporte un mode graphique accessible 
avec les mêmes séquences d'échappement que 
limprimante ThinkJet, et une résolution de 64x240 
points. 


Module mémoire pour HP-71 


Complétant sa gamme, CMT annonce un nouveau 
module de mémoire vive pour le HP-71. Il s’agit d’un 
module 64 Ko (avec sauvegarde par batterie intégrée) 
enfichable dans les ports avant. 


Le prix est fixé à $ 295. 


L'adresse de ce fabricant très dynamique est : 
Corvallis MicroTechnology, Inc 

895 N.W. Grant Avenue 

Corvallis, OR 97330 

US.A. 


Pierre David (37) 


34 K OCTETS SUR HP-28C 


La société Software Operations and Systems, Co 
propose la modification de HP-28C en super HP-28C 
(avec 34 Ko ou 6 Ko de mémoire). Jai fait 
transformer ma machine et voici le résultat : 

- mémoire 34461 octets (1693 + 32 x 1024) 

- au dos de la machine une plaque de plastique de 2 
centimètres sur 3 recouvre l’incision pratiquée pour 
placer le module. 


Les avantages : 

- possibilité d’avoir de nombreux programmes 
simultanément, 

- possibilité d'éditer ceux-ci sans problème (No Room 
to Enter.….), 

- gain en vitesse nul ou presque. 


Les inconvénients : 

- si la pile est très remplie, la fonction MEM est très 
lente, le garbage collector aussi, 

- la fonction PREV ne fonctionne plus correctement. 


Tout ceci coûte $300 pour 32 Ko et comprend 
module, montage et transport par messagerie (4 
jours) ou $295 si le transport est fait par la Poste (3 
semaines ou plus) ; $155 pour 4 Ko par messagerie 
($150 sinon). 


Le délai est d'environ 1 mois et demi après réception 
de la machine. 


Voici l'adresse de l’entreprise : 


Software Operations and Systems, Co 
1850 East 17!* Street 

Suite 102 

Santa Ana, CA 92701 

USA 


Téléphone : 714 558-1806 


Paul Courbis (392) 
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HP28 


P. Courbis Le tour du HP-28C 10 


P. Courbis PEEK et POKE pour HP-28C 24 


JPC SI Page 9 








LE TOUR DU HP-28 EN 80 PAGES 
… OÙ PRESQUE 


L'article ci-dessous est le résultat de plusieurs mois de 
travail de Paul Courbis sur la structure interne du 
HP-28C. Paul a fait l'effort de rédiger et de présenter 
dans JPC l’état actuel de ses connaissances. Cela 
semblera peut-être un peu difficile d’abord. Mais pour 
expérimenter vous-mêmes, Paul a également fourni 
PEEK et POKE. 


La publication de ce travail et sa disponibilité 
constituent un enrichissement pour tous. 


Félicitons tous Paul pour ce travail considérable, et 
souhaitons que beaucoup parmi vous continue dans la 
voie ainsi tracée. 


Le but de cet article est d’expliquer, ou plutôt de 
tenter d’expliquer, la manière de programmer en 
assembleur le HP-28C (cest à dire en langage 
machine). Pour cela, une bonne connaissance de la 
structure interne de la machine est nécessaire et la 
première partie de cet article est consacrée à cela. 


Tout d’abord, le microprocesseur du HP-28C est 
quasiment le même que celui du HP-71, ce qui 
permet de connaître les codes des différentes 
instructions du processeur. Il faut cependant savoir 
qu'une instruction nouvelle vient compléter celles 
présentes sur le HP-71 : 


pc=(A) de code 808C. Cette instruction lit un groupe 
de 5 quartets situé à l’adresse contenue dans A et 
charge ces 5 quartets (c’est à dire une adresse) dans 
PC (Program Counter). 


L'instruction RPL qui a permis laccès à la 
programmation en assembleur est bien entendu 
sysEvAL dont le rôle est exactement le même que 
PC=(A) : SYSEVAL prend l’entier binaire au niveau 1 de 
la pile, le tronque pour n’en garder que 5 quartets ; lit 
5 quartets à cette adresse et les place dans le registre 
PC. 
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La structure de la mémoire est la suivante : 


Version Version Version 

Standard adresse 6 Koctets adresse 34 Koctets 
| | FFFFF | | FFFFF | | 
| Vide | 
| | | | | 
| | | Vide | | 
| | | 'SFFFF | | 
| Vide | | | 
| | | | | | 
| | | | SIFFF | 
| | | Ram | 
| | 4FFFF | Ram | | | 
| Ram | | | | 
| | 4F000 | | 4F000 | | 
| | | | 
| Vide | | Vide | | Vide | 
| | | 
| | 407FF | | 407FF | | 
| Ecran | | Ecran | | Ecran | 
| Timer | | Timer | | Timer | 
| | 40000 | | 40000 | | 
| | | | | | 
| Rom | | Rom | | Rom | 
| système | | système | | système | 
| | 00000 | | 00000 | | 


Le contenu de la mémoire est constitué de 4 types de 
groupes de quartets : 


- ceux concernant l'écran ou le timer qui sont des 
zones mémoire d’entrée / sortie, quartets d’un type 
particulier, 

- des données : suites de quartets représentant 
quelque chose. Par exemple, la valeur de correction 
de la routine d’horloge, 

- des routines en langage machine, 

- des objets RPL (comme ceux que l'utilisateur crée). 
Il est à noter que ce genre de groupe de quartets se 
rencontre aussi dans la Rom ; en particulier, les 
instructions RPL sont des objets au même titre que 
ceux créés par l'utilisateur. 


LES OBJETS 


Pour bien comprendre le fonctionnement du HP-28C, 
il est nécessaire de bien connaître les différents types 
d'objets. Ils sont au nombre de 19 dont 9 peuvent être 
créés directement par l’utilisateur. 


Ils commencent tous par un groupe de 5 quartets, le 
prologue qui indique leur type et, éventuellement, par 
des renseignements sur leur longueur, dimension... 


Le tableau suivant résume les différents types d’objet 
ainsi que leur prologue. Ces objets sont ensuite 
détaillés. 


Objet Prologue 
Short integer (*) 02911 
Real 02933 
Extended Real (*) 02955 
Complex 02977 
Extended Complex (*) 02990 
Byte (*) 029BF 
Premier objet inconnu (*) 029E1 
Array 02A0A 
Second objet inconnu (*)  O2A2C 
String O2A4E 
Binary integer 02A70 
List 02A96 
Ram/Rom Pair (*) 02AB8 
Algebraic O2ADA 
Program 02C67 
Assembly Code (*) 02096 
Global Name 02D12 
Local Name (*) 02D37 
Rom Pointer (*) 02D5C 


(*) Ces objets sont impossibles à créer par 
l'utilisateur et apparaissent tous comme System Object 
(sauf Local Name). 

Short integer 


Prologue : 02911,4 


Structure : 





| Prologue | nombre | 





Exemple : 1192054321 est le short integer 12345. 


Real 
Prologue : 02933; 


Structure : 





| Prologue | Exposant | Mantisse | Signe | 


a 


<--- 3 --> <-- 12 --> <- 1 -> 


L’exposant et la mantisse sont en décimal codé 
binaire (DCB). L’exposant varie de 000 à 499 (positif) 
et de 999 à 501 (négatif). La mantisse contient 12 
chiffres. Le signe est le signe de la mantisse : 0 si 
positif, 9 si négatif. Par exemple, x x 10 est 
représenté, en valeur numérique, par 
339205009535629514130. 


Extended Real 


Prologue : 02955, 


Structure : 


| Prologue | Exposant | Mantisse | Signe | 





<e-- 5 --> <-- 15 - 


-> <- 1 -> 
Même remarques que pour Real et exemple similaire 


avec 3 décimales de plus et un exposant compris entre 
-49999 et +49999, 


Complex 


Prologue : 02977,4 


Structure : 





| Prologue | Exposant | Mantisse | Signe | 





<--- 3 --> <-- 12 --> <- 1 -> 


—————————_—_————— 


| Exposant | Mantisse | Signe | 





<--- 3 --> <-- 12 --> <- 1 -> 


On trouve d’abord la partie réelle puis la partie 
imaginaire, sinon même structure que Real. Par 


exemple, (10,20) est représenté par 
7792010000000000000101000000000000020. 


Extended Complex 


Prologue : 0299D,4 


Structure : 
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| | 


| Prologue | Exposant | Mantisse | Signe | 


| 


<- 5 -.> <-- 15 --> <- 1 -> 


————————————————— 


| Exposant | Mantisse | Signe | 





ee 5 => <-- 15 --> <- 1 -> 


Même remarques que pour Real, exemple similaire à 
Complex avec 2 x 3 décimales en plus et des 
exposants à 5 chiffres de -49999 à +49999. 


Byte 


Prologue : 029BF,4 


Structure : 


| Prologue | Byte | 


—— 


Par exemple, octet 01 : FB92010. 
Premier objet inconnu 

Prologue : 029E1:4 

Array 


Prologue : 02A0A;4 


Structure d’un vecteur : 





| Prologue | Longueur | Type | Dimension | 


| 


D us 
<-- GS --> <- 5 -> <-- 5 --> 


a ———————Z mt) 


| 


| nb élem. | élément1 | élément? | 


mem 


<-- 5 --> 
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La longueur est le nombre de quartets à ajouter au 
pointeur RPL (DO) lorsqu'il pointe sur cette longueur 
pour qu’il pointe sur la fin de objet, c’est à dire la 
longueur + 5 (longueur de la longueur). Le type est 
soit réel soit complexe et est représenté par le 
prologue Real ou Complex. Dimension vaut 00001 
dans le cas du vecteur (une seule dimension). Nombre 
d'éléments est le nombre de colonnes de la matrice 
1 x n qu'est le vecteur. 


La structure d’une matrice est quasiment la même. 
Cependant, dimension vaut 00002 et on à 2 x 5 
quartets pour le nombre d’éléments (nombre de 
lignes / nombre de colonnes). Par exemple, 
t[1 21 [3 41] est représenté par : 


AOA20 prologue 

95000 longueur 

33920 type réel 

20000 dimensions 

20000 nombre de lignes 
20000 nombre de colonnes 
0000000000000010 premier réel 
0000000000000020 deuxième réel 
0000000000000030 troisième réel 
0000000000000040 quatrième réel 


Second objet inconnu 
Prologue : 02A2C;4 


Cet objet, ainsi que le précédent inconnu, sont 
impossibles à charger par un STo ; ils provoquent un 
message Range Exception. 


String 


Prologue : 02A4E,4 


Structure : 


À 


| Prologue | Longueur | cari | car2 | 








rs. 5 ee ed > <> 


Longueur est définie comme pour Array et vaut 
également 2 x SIZE(String) + 5. Par exemple, "PPC" 
vaut : E4A20B0000050534. 

Binary integer 


Prologue : 02A70,4 


Structure : 





| Prologue | Longueur L | Chiffre | 


———_—_—_—_—_…_—_—_———— 


<e. GB -.-> <- L-5 -> 


Habituellement L = 15,4 pour les nombres entrés par 
l'utilisateur. Cependant, la valeur peut être différente 
ce qui permet un gain de place pour le stockage de 
petits entiers : #0 peut être codé 07A20600000. Par 
exemple, #123456789ABCDEFO est représenté par 
07A20510000FEDCBA987654321. 


List 


Prologue : 02A96,4 


Structure : 





| Prologue | objet1 | objet2 | 


——————_—_—_—_—_—_—_—_———— 





| objetn | fin Liste | 


————…—…—…——s 


Fin de liste est le groupe de quartets 02F90. Par 
exemple, € #123456789ABCDEFO "PPC" } est représenté 
par : 


69A20 prologue List 
07A20 prologue Binary integer 
510000FEDCBA987654321 l’entier binaire 


E4A20 prologue String 
B0000050534 la chaîne 
09F20 fin de liste 


Ram/Rom Pair 


Prologue : 02AB8,, 


Cet objet constitue en fait la Ram USER et sa 
structure est mal connue. Son explication est 
indissociable de celle de la structure de la partie de la 
Ram contenant les objets utilisateur. En voici la 
structure : 


<-- Fin de Ram 





Objet1 


Longueur nom objet1 


nom objet1 





Longueur nom objet1 


Longueur L2 


Objet2 


longueur nom objet2 





nom objet2 





Longueur nom objet2 





longueur L3 





Objet3 





longueur Ln 





Longueur nom objetn 


| 
| 
| 
| Objetn | 
| 
| | 
| 
| 
| 
| | 


JPC SI Page 13 








nom objetn 





Longueur nom objetn 


— 





00000 





longueur L 


— 


00000 





27676 cn) 





008 


1c282 (2) 


1CB5D (3) 


e 
O 
rm 


002 


Prologue 


A 
, 
0 


Adresse contenue dans 
5 quartets en #4F087 


(1), (2) et (3) sont probablement des adresses 
concernant les instructions RPL situées en Rom. 

Il est à noter qu’une telle structure permet le 
parcours de la Ram utilisateur dans les deux sens. 
Algebraic 

Prologue : 02ADA,4 


Structure : 





| | | | 


| Prologue | Expression | Fin Alg. | 





<-- 5 --> 
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Fin d’algèbre vaut 02F90. L'expression contient la 
suite des opérations à effectuer pour faire le calcul, en 
notation polonaise inversée. C’est un ensemble 
composite comme la liste. Par exemple, 
1.33 x 7.42 + /74 sera représenté par : 


ADA20 prologue Algebraic 
33920 prologue Real 
0000000000003310 réel 1.33 

33920 prologue Real 
0000000000002470 réel 7.42 

D9F81 + 

33920 prologue Real 
1000000000000470 réel 74 

DD591 Ÿ 

D9F81 + 

09F20 fin d’Algebraic 


Une telle structure permet de ne pas avoir à stocker 
de parenthèses : les calculs se font par l'intermédiaire 
de la pile. 
Program 


Prologue : 02C6744 


Structure : 





| Prologue | Programme | Fin Prog | 


| 





<uvS: se 


Fin de programme vaut 02F90. Le programme est une 
suite d'objets : c’est donc un objet composite. Pour les 
programmes créés par lutilisateur, la structure est 
plus complexe car elle est de la forme : 


——_—————————————————…——————— 


Lol l | 


| Prologue | « | Programme | » | Fin Prog | 





<5> <5> <-- 5 --> 


C’est encore un objet composite. Par exemple : 
« MPPC" #123456789ABCDEFO » est représenté par : 


76C20 prologue 

AOF72 « 

E4A20 prologue String 
B0000050534 PPC 

07A20 prologue Binary Integer 


510000FEDC8A987654321 #123456789ABCDEF0 
F1F72 » 
09F20 fin de programme 


Assembly Code 
Prologue : 02C96,4 


Structure : 





| 
| Prologue | Longueur L | Codes | 
| | 
<--- 5 ---> < L-5 > 
Codes représente la suite des codes des instructions 
du microprocesseur. 
Global Name 


Prologue : 02D12,, 


Structure : 


| Prologue | Longueur | Nom | 





<-- 2,  --> 
Longueur est le nombre de caractères du nom. Par 
exemple, ABC! est représenté par : 21D2030142434,. 
Local Name 
Prologue : 02D37,4 


Structure identique à un nom global, seul le prologue 
change. 

Rom Pointer 

Prologue : 02D5C;; 

Structure : 

| 

| Prologue | Rom Pointer | 


——— 


Rôle inconnu. 


A ces 19 objets, il convient d’ajouter : 

- les instructions RPL, 

- les instructions internes du HP-28C, par exemple 
1C285 qui vérifie la présence d’un élément dans la 
pile, le stocke dans LAST, si LAST est validé, ou 
affiche Too Few Arguments si la pile est vide. La liste de 
ces instructions ne peut encore être envisagée. 

- les lettres de A à Z, 

- les nombres de -9 à +9 

- diverses constantes. 

tous codés sur 5 quartets. 


Une liste de certaines instructions RPL a été donnée 
dans JPC 47, en voici d’autres : 


A : 2789F U : 279CB 5:21 1E353 

B : 278AE V : 279DA 6 : 1E368 

C : 278BD W : 279E9 T :,1E8370 

D : 278CC X : 279F8 8 : 1E392 

E : 278DB Y : 27A07 9 : 1E3A7 

F : 278EA Z : 27A16 n : 1E479 (approx) 

G : 278F9 -9 : 1E464 x : 1E48E (étendu) 

H : 27908 -8 : 1E44F MAXR : 1E4AB 

l s 27917 -7 : 1E43A -MAXR : 1E4BD 

J : 27926 -6 : 1E425 MINR : 1E4D2 

K : 27935 -5 : 1E410 -MINR : 1E4E7 

L : 27944 -4 : 1E3FB 0 : 1E4FC (ext. réel) 
M : 27953 -3 : 1E3E6 1 : 1E516 (ext. réel) 
N : 27962 -2 : 1E3D1 2 : 1E530 (ext. réel) 
0527971 -1,,:. 1E3BC 3 : 1E54A (ext. réel) 
P : 27980 O0 : 1E2EA 4 : 1E564 (ext. réel) 
Q : 2798F 1 : 1E2FF 5 : 1E57E (ext. réel) 
R : 2799E 2: :. 16314 

S : 279AD 3 : 1E329 

T : 279BC 4 : 1E33E 


Ces objets sont tous considérés comme des 
instructions et sont en fait représentés par leur 
adresse d’exécution (utilisable par SYSEVAL). 


Après ce petit (!) prologue, passons à présent au 
contenu de la mémoire vive ; la Rom (128 Koctets) 
étant encore loin d’être connue, il serait illusoire de 
vouloir la décrire. 


. 
ms 
Le 


Ÿ 













(el 
/ 


à 
LR om 
a Co Pape ls 








ZONE D'ENTREE / SORTIE 
4O7FF | | 
| Valeur du Timer | 8 quartets 
407F8 | | 
| 27? | 246 quartets 
| 
| 
40701 | Contraste | 1 quartet 
| | 
| | 
| 22? | 33 quartets 
| | 
406F | | 
| Row Driver | 256 quartets 
| Waveforms | 
405E0 | 
405DF | | 
| Partie droite écran | 480 quartets 
40400 | | 
| 
| 27? | 288 quartets 
| | 
402DF | | 
| Partie gauche écran | 616 quartets 
40078 | | 
| | 
| 272? | 120 quartets 
40000 | | 
L'écran 


Chaque pixel est représenté par un bit, soit donc 4 
pixels par quartet. L'écran est codé colonne par 
colonne (les 8 premiers quartets représentent donc la 
première colonne), du haut vers le bas (le bit O du 
premier quartet représente donc le pixel en haut à 
gauche). 


Row Driver Waveforms 


C’est une série de 256 quartets indiquant au Display 
Driver le numéro de la ligne logique, située dans la 
Ram précédemment décrite, à afficher en une ligne 
physique donnée (sur le LCD proprement dit). 


Appelons L, … L:, les 32 lignes physiques et 1; … L 
les 32 lignes logiques. Chaque ligne physique est 
concernée par 32 bits (8 quartets) dans l’ordre L;, 
Ly, L, L3… Pour une ligne physique L, donnée, on 
aura : 

- si les 32 bits sont à 0, la ligne L, sera éteinte. 

- si plus d’un des 32 bits est à 1, la ligne L,, apparaîtra 
noire (plus ou moins foncée). 
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- si le mè"€ bit et lui seulement est à 1, la ligne 1, 
sera affichée en L,.. 


L'état normal est donc (L, et L;, seulement) en bits : 
10000000000000000000000000000000 L, 
00000000000000000000000000000001 Ly 

soit donc, en hexadécimal : 10000000 00000008. 

Il est à noter qu’un arrêt système après une 
modification de ces 256 octets remet le Row Driver 
Waveforms à la valeur standard. 

Le contraste 

C’est un quartet dont la valeur va de #0, contraste le 
plus faible, à #F, contraste le plus fort. Il est à noter 
que les touches [ONJ]I+] et [ONII-1 ne permettent 
d'accéder qu’aux valeurs #4 à #F. 

Le timer 

C’est un groupe de 8 quartets dont la valeur va 
décroissant de #077FFF à #000000. La valeur exacte 
obtenue par #123E SYSEVAL est calculée en faisant la 


différence entre un offset de correction situé en Ram 
et la valeur du timer. 


0 0 
. 
NC 


Ce 


LA MEMOIRE 


En version standard, elle va de 4F000 à 4FFFF, en 
version 6 K-octets de 4F000 à 51FFF et en version 34 
K-octets de 4F000 à 5FFFF, 





| | 4FFFF (S1FFF où SFFFF) 
| 

| Rom / Ram pair | 

| | adresse dans 4F087 
| | 

| Vide ? | 
| | adresse dans 4F085 
| Vide ? | 
| 


adresse dans 4F07D 


| | 
[Temporary environment | 
| | adresse dans 4F078 


——_—_—_—___————— 


| | 
| 00000 | 
fo =. NN adresse dans 4F073 
| 
| UNDO stack 

& var. temporaires 


adresse dans 4F06E 


Command Line 
adresse dans 4F069 


—————_————————__—_—_—_—_—_—_m— 


| 

| 
| | 
| | 
| | 
| | 
be 
| | 
| | 
| | 
| | 
| | 
| 
SEE | adresse dans registre D1 


adresse dans registre B 


4F14F 
Ram reservée 


| | 
| 
| 22? 
| | 
| 
| 


LA RAM RESERVEE 


Les adresses sont spécifiées dans 
détaillée du contenu. 





| 272? | 9 quartets 
ane | 

| 

| Menu | 6 quartets 
ER de Li 

| 

| 272? | 8 quartets 
Dessous een 

| 

| ERRN | 5 quartets 
lee en 

| 

| 22? 2 quartets 


en - 
| 
| Pointeurs Curseur 21 quartets 


——————_—_—_—_—_—_—pZpL 











22? 2 quartets 
| 
| Drapeaux 16 quartets 
| 
| 
| Indicateurs 2 quartets 
| 
| 272? 


15 quartets 
RE 4 à em 
| nb quartets ds pile 5 quartets 








22? 25 quartets 
| fin mémoire 5 quartets 
| 
| 00000 (7?) 5 quartets 
ER 

039ED (2?) 5 quartets 
O39CF (?) 5 quartets 





Cmd 4 





| 
| 
| 
| 
nn 
| 
| 
| 
| 
| 
| 


| 
| 
| 
| 


la description 
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| 
| Cmd 3 Pile de | 


| Cmd 2 Commandes | 
| 
| 
| Cmd 1 | 
| 00000 (7?) | 


— 
———————— 


—————————— 


| 
| 
| 
| 


Last 3 
Pile du 


[= | 
| | 
| Last 2 | 
fo — | 
| | 
| Last 1 


best 
00000 (2) | 


———————— 


1ASAA (72) 


| Début Rom/Ram pair ? 
| 


——_—_——————— 


| 
| 
| 
| 
Début Rom/Ram pair | 
| 
| 
| 


| 

| Début Rom/Ram pair ? | 
| | 
| 


| 

| Temporary environment | 
Ru sm 
| | 
| 272? | 
(. n 
| | 
| Pile d'UNDO | 
| & variables Locales 
| 


| 

| 

| 

fond de pile | 

& Ligne de commande | 
| 

| 
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20 quartets 


5 quartets 


5 quartets 


5 quartets 


15 quartets 


5 quartets 


5 quartets 


5 quartets 


5 quartets 


5 quartets 


5 quartets 


5 quartets 


5 quartets 


5 quartets 


15 quartets 


Buffer de touches 32 quartets 


pointeurs 
buffer 


2 quartets 


KEYSTART 


000 (7?) 3 quartets 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
ares) 
| 
utilisé par #123E | 16 quartets 
mn mt 

utilisé par #123E 16 quartets 
(arrêt système) 1 quartet 
paramètres BEEP 3 quartets 
2 quartets 
offset correct horl. 


12 quartets 


OFF (?) 3 quartets 


| 
| 
| 


Offset de correction de l’horloge 


(#4F003 à #4F00E) Cette série de 12 quartets sert au 
calcul du temps effectif lors de l’appel de #123E. On 
a temps réel = offset - timer, timer est lu dans la Ram 
d’entrée/sortie. 


Paramètres de BEEP 


(#4F011 à #4F013) Ces 3 quartets sont une référence 
pour l'émission d’un 8EEP. En les modifiant, on fait 
varier tous les BEEP possibles à produire avec la 
machine. 


Arrêt système et auto-tests 


(#4F014) La valeur de ce quartet est normalement 
#F. En le mettant à 0, l'arrêt système [ON] ("1 ainsi 
que les deux auto-tests n’ont plus aucun effet. A noter 
que l'extinction de la machine réarme cet indicateur 
et permet à nouveau l'arrêt système. 





Stockage temporaire 


(#4F015 à #4F024 et #4F025 à #4F034). Ces deux 
zones sont utilisées par #0123E pour le stockage 
temporaire de certains registres. Elles sont sans doute 
utilisées de la même façon par d’autres routines. 


Le buffer 


(#4F038) contient KEYSTART 
touches à traiter. 


: pointeur de début des 


(#4F039) contient KEYEND 
touches à traiter. 


pointeur de fin des 


(#4F03A à #4F059) contient les codes clavier des 
touches. Les touches restant à traiter vont de #4F03A + 
2 X KEYSTART à #4F03A + 2 x KEYEND (non compris). En 
fait, la meilleure façon de représenter le buffer est de 
le comparer à une horloge dont les aiguilles seraient 
KEYSTART €t KEYEND : 


sens de traitement 


2-4 


4FOS 8 4F01A 
4 Fos9 LS 


© gqurtkets 










1Et sera skocke” 
Le prochain cer- 


-ackRre Es pe. 


Attention : les codes stockés dans le buffer sont les 
codes clavier et non les codes ASCII. En voici la liste : 


Touche Code Touche Code Touche Code 
# 18 ' 2D ( 14 
+ 1A + 02 , 01 

0E . 04 / 26 
0 07 1 13 2 10 
3 OD 4 1F 5 1c 


Touche Code Touche Code Touche Code 


6 19 7 2B 8 28 
9 25 = 0B A 41 
B 42 C 48 D 47 
E 46 F 44 G 35 
H 36 I 3C J 3B 
K 3A L 38 M 29 
N 2A 0 30 P èF 
Q 2E R 2c S 1D 
T 1E U 24 V 23 
W 22 x 20 Y 11 
zZ 12 C 16 € 17 
« oc Space 06 a 08 
LC OA EVAL 15 STO 21 
EEX 31 DROP 32 Effac 33 
CHS 34 ENTER 37 SOLV 3D 
USER 3E NEXT 3F TRIG 40 
Curs 43 1 49 + &A 
+ 48 î 4C DEL 4F 
INS 51 ON 7F Shift 80 
La pile 


Les objets ne sont pas dans la pile, c’est leur adresse 
(sur 5 quartets) qui est stockée : 


+ fond de pile pointé 


| | par #4F069 
| 00000 | 5 quartets 
| | 
| | 
| adresse objet n | 5 quartets 
| | 
| 
| adresse objet n - 1 | 5 quartets 
| 
| | 
| | 
| adresse objet 2 | 5 quartets 
| | 
| | 
| adresse objet 1 | 5 quartets 
| | 


+ adresse pointée par 
le registre D1 


Ainsi pour obtenir l’adresse de l’objet situé au niveau 
1 de la pile, suffit il de lire 5 quartets à partir de 
l'adresse contenue dans le registre D1. 

Si, par exemple, le niveau 1 contient "PPC"', à 
l'adresse ainsi lue, on trouvera E4A20B0000050534. 
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La ligne de commandes 


Elle se situe entre l’adresse pointée par #4F069 et 
celle pointée par #4F06E (non inclus). La structure 
est la suivante : 


MB reS <'2> 
Î î 
#4FO6E #4F069 


Car i est le code ASCII du iè"® caractère de la ligne 
de commande. 7 vaut au minimum 23 si le nombre 
réel de caractères entrés est inférieur, ils sont 
completés à 23 par ladjonction du ou plusieurs 
caractères de code 00. 


Des informations sur le curseur sont stockées de 
#4F11D à #4F132 : 


| marge verticale | 3 quartets 
| 

| | 

| pos. curseur ds Ligne] 3 quartets 
| | 

| 27? | 3 quartet 
| 

| 

| 1er étage à afficher | 3 quartets 
| | 

| 

| 272? | 3 quartets 
| 

| marge verticale | 3 quartets 
| | 

| | 

| pos. curseur ds écran] 3 quartets 


marge à gauche : nombre de caractères cachés à 
gauche. Par exemple, si marge à gauche vaut 3, 
"123451 1 DISP donnera ...56. 


position curseur dans la ligne de commande i : position 
du caractère sous le curseur dans la ligne de 
commande. 

premier étage de la pile à afficher : 
visible de la pile. 


premier étage 
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marge verticale : numéro de la ligne à partir de 
laquelle il faut afficher. Par exemple, si marge verticale 
vaut 3, on aura : 


nu 

2 

3 

4 1 DISP 
donnera : 
3 

4 


position horizontale dans écran : de 0 à 16,4. 


La pile d'UNDO et des variables locales 


Son adresse se trouve en #4F06E sur 5 quartets. La 
structure est la suivante : 


| 

| 00000 | 5 quartets 
| 

| | 

| pile d'UNDO | 

| EL 

14 

| variables locales | un 

| programme 1 | bloc 

| 1-1 

| | 

| 

| | 

| variables locales | 

| programme n-1 | 

| variables locales | 

| programme n | 

| | +C4FO06E) 


Chaque bloc ayant la structure : 


contenu var Loc (adr)| 


5 quartets 


nom var loc (adr) 


| 
| 5 quartets 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

"" centre un titre, par exemple : 
"TITRE 


"'(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Roman8. Les 


possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex de JPC 50. 


Jean-Jacques Dhénin (177) 


DEF KEY 'fW!, CHR$(197); (é) 
DEF KEY ‘fE', CHR$(193); (è) 
DEF KEY ‘fR', CHR$(201); (è) 
DEF KEY ‘fY!, CHR$(203); cù) 
DEF KEY ‘fU', CHR$(195); cü) 
DEF KEY ‘fl', CHR$(209); ci) 
DEF KEY ‘fO', CHR$(194): (ô) 
DEF KEY ‘f/!, CHR$(92); «0 
DEF KEY ‘fA', CHR$(192); (à) 
DEF KEY 'fS', CHR$(200); (à) 
DEF KEY 'fD', CHR$(205); (ë) 
DEF KEY ‘fJ!, CHR$(207); (ü) 
DEF KEY 'fK', CHR$(221); (D) 
DEF KEY 'f*1, CHRS(124); cp) 


DEF KEY 'fC!, CHR$(181); Cç) 








PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 20 février 1988 

Samedi 5 mars 1988 

Samedi 16 avril 1988 

Samedi 7 mai 1988 

Samedi 4 juin 1988 


Pierre David (37) 


NOUS EN AVONS 


La coopérative du Club dispose : 


- de lecteurs de cartes magnétiques pour HP-71, neufs, dans leur boîte d’origine, 
avec 5 cartes magnétiques, pour 500 F (port compris), 


- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais 
d’affranchissement, 


- d’une année complète de numéros de JPC (février à décembre / janvier) pour 
300 F (offre spéciale) port compris, 


- des I.D.S. du module Forth / Assembleur (listing interne commenté par HP) 
pour 250 F (port compris), 


- des VASM pour HP-41 (listings des Roms internes commenté par HP) pour 
300 F (port compris). 


- de manuels de service du HP-41 au prix de 75 F (port compris). 
- de manuels de service du HP-75 au prix de 75 F (port compris). 


Si vous souhaitez d’autres renseignements, n’hésitez pas à nous contacter. 





VOUS EN VOULEZ 


Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande 

até Prix Unitaire Prix Total 
Lecteur de cartes pour HP-71 x 500 F 
anciens numéros de JPC x 47,40 F 
année complète de JPC x 300 F 
1.D.S. du module Forth x 250 F 
V.A.S.M. x 300 F 
Manuel de service pour HP-41 X 75 F 
Manuel de service pour HP-75 x 75 F 

Total F 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS CHAPTER 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 


Nom 1] 
Prénom |_| 
Adresse |_| 


Code Postal 


TO 
mes 
Re ia ee 
Dies Des ne De 
NES is 
El ar eur 
US 
= 


Profession 
Intérêts 








Matériel HP en votre possession 





Autre matériel informatique 








Comment avez-vous connu PPC Paris ? 


Que recherchez-vous au sein de PPC Paris ? 








La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
Le concernant. 


Je souhaite adhérer au club PPC Paris Chapter conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le Journal de liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_[_1/|_|_1/191_[_| 
Signature, précédée de La mention "Lu et Approuvé!! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 
Paiement effectué Le |_|_[/|_|_[/19|_|_| à l'ordre de PPC Paris Chapter, 


par [ ] chèque bancaire, [ ] chèque postal où [ ] mandat lettre 


Veuillez envoyer toute correspondance à : 
PPC Paris Chapter, BP 604, 75028 Paris Cedex 01, France 


| 

| 

| contenu var Loc (adr)| 5 quartets 
| | 

| 

| nom var Loc (adr) | 5 quartets 
| | 

| | 

| Longueur du bloc | 5 quartets 
| 

| | 

| identificateur | 5 quartets 
| | 


nom variable locale pointe sur un nom vide ('') dans 
le cas où le bloc est relatif à la pile d'UNDO. 


identificateur vaut 00002 pour la pile d'UNDO et 
00000 pour un bloc de variables locales. 


Dans le cas de la pile d’'UNDO), le premier nombre 
après un nom vide est le nombre d’éléments dans la 
pile. 


Si on effectue des boucles FOR … NEXT OU START … NEXT, 
des variables locales sont créées contenant la valeur 
du compteur ; son nom est ! 'noname! dans le cas de la 
boucle START (impossible à entrer au clavier). Une 
variable ‘'stop' contient la valeur de fin de boucle 
(impossible à entrer au clavier). Une boucle est 
considérée dans ce cas comme un sous-programme. 
Au retour d’un sous-programme, les variables locales 
le concernant sont détruites. 


Si UNDO n’est pas activé, le bloc UNDO n'existe 
pas. 


Temporary environment 


Adresse en #4F078 à #4F07C. C’est une zone qui 
renseigne le HP-28C sur le menu à exécuter. 


| | 
| 00000 | 5 quartets 
| 
| 
| 0805A | 5 quartets 
| 08371 en mode édition| 
| | 
| | 
| O80BE | 5 quartets 
| | 
| 
| adresse 6ème touche | 5 quartets 
| | 
| | 


| | 
| | 
| adresse 5ème touche | 5 quartets 
| | 
| 
| adresse 4ème touche | 5 quartets 
| 
| 
| adresse 3ème touche | 5 quartets 
| 
| | 
| adresse 2ème touche | 5 quartets 
| | 
| 
| adresse 1ère touche | 5 quartets 
| 
| 
| 03909 | 5 quartets 
| 
| | 
| 03909 | 5 quartets 
| 
| 
| adresse disp 6 | 5 quartets 
| | 
| 
| adresse disp 5 | 5 quartets 
| 
| adresse disp 4 | 5 quartets 
| | 
| | 
| adresse disp 3 | 5 quartets 
| 
| adresse disp 2 | 5 quartets 
| | 
| | 
| adresse disp 1 | 5 quartets 
| 
| 
| 08C (2?) | 3 quartets 


adresse disp n pointe sur une routine déterminant le 
nom à placer dans la ligne de commande en mode 
ALPHA. Si le menu n’est pas le menu USER, le nom 
en question sera affiché dans le menu. 


Pour le menu USER les adresses disp sont dans 
l'ordre : 

0E059, 0EO7C, OEO0B3, OEOFE, 0E117, 0E130 

et d'exécution : 

O0D8B, ODDD9, ODDF3, ODE15, ODEB3, ODE51 

Ces adresses ont pour rôle : 

- pour l'affichage de placer dans la pile le nom du 
nème programme (chaîne de caractères). 
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- pour les secondes de déclencher l'exécution du n°" 
programme du menu. 


Ces routines utilisent certainement les six quartets 


concernant aussi le menu et situés de #4F141 à 
#4F146. 


| numéro de menu ? | 2 quartets 
| 
| 
| numéro de page | 2 quartets 
| 
| 
| numéro de menu ? | 2 quartets 


Numéro de page est le numéro de l’objet à partir 
duquel il faut commencer le menu (0,6,C,...) 

Numéro de menu semble être le numéro de menu à 
afficher. Voici la table relevée : 


Array : 12 Real : OD Ctrl : 0E User : 01 
Binary : 0B Stack  : 08 Branch : 03 Mode : 06 
Cmplx : 13 Store : 10 Test : OF Logs : 04 
String : 14 Algebra : 09 Trig : 07 Stat : 05 
List  : OC Print ST SOL. «5 -0À, Plot:s: 15 


Solvr : 02 (Sous menu) 
A laquelle on peut ajouter : 
16 : Menu FORMT (Colct Expan Level Exget [+] [-]) 
17 : Menu FORM2 (DNEG DINV *1 /1 "1 +1 -1) 
18 : Menu FORM3 (-C) + + +M M+ +A A+) 
19 : Menu FORM4 (AF) 
1A : Menu FORMS (1/0) + + +D D+ +A A+) 
18 : Menu FORM6 (-() LC) +M M+) 
1C : Menu FORM7 (1/() EC) +D D+ +A A+) 
1D : Menu FORM8 (1/() E” D+) 
1E : Menu FORM9 (-(C) L* D-+) 
1F : Menu FORM10 (-()) 
00 : pas de menu 


Rom/Ram pair 


Adresse en #4F087 à #4F08B. Elle a déjà été étudiée 
précédemment (voir la rubrique sur les différents 
types d’objets). 


La pile du LAST 


Adresse de #4F096 à 4F0A4. Elle contient les 
adresses de 1 à 3 objets (si il y a moins de 3 objets les 
adresses des objets non présents seront 00000). Ce 
sont les adresses des objets pris par la dernière 
fonction utilisée. Si LAST est invalidé, les 3 adresses 
seront 00000. 
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Pile de commandes 
Adresse de #4F0B4 à #4F0C7. C’est une liste de 4 
adresses, éventuellement à 00000, pointant sur des 


chaînes de caractères contenant les caractères d’une 
ligne de commande. 


Stockage des valeurs des indicateurs 
2 quartets de #4F109 à #4F10A. 


4F109  4F10A 








[_____ Shift 

pile 

a 

pas utilisé ? 
pas utilisé ? 
imprimante 
Halt 

(27) 





Attention : changer ces valeurs ne conduit pas à un 
effet immédiat lors de l’exécution d’un programme : 
c’est seulement à la fin de ce programme que les 
indicateurs seront réactualisés en fonction de ces 
valeurs. 


Les drapeaux sont de #4F10B à #4F11A. Ce sont 64 
bits, chaque bit représentant un drapeau (Flag 1 : Bit 
0 de #4F10B, Flag 64 : Bit 3 de #4F11A). 


Adresses diverses 


En #4F0D7 est inscrite l’adresse de fin de mémoire 
(#50000 en standard). 


En #4F0FS est inscrit le nombre de quartets dans la 
pile, c’est à dire 5 fois le nombre d’éléments dans la 
pile (5xDEPTH). 


En #4F134 à #4F138 se trouve le numéro de la 
dernière erreur commise. 


PROGRAMMATION EN ASSEMBLEUR 


Après ce petit préliminaire, voici la deuxième partie 
de cet article : comment programmer en langage 
machine sur le HP-28C. Tout d’abord voici 
l'explication des programmes ASS et -LEX parus dans 
JPC numéro 50. 


Le but recherché était de permettre la création de 
n'importe quel objet. L'idée retenue a finalement été 
un processus en deux étapes : 


1- Mise en place de la suite de quartets constituant 
l'objet à créer sous forme de chaîne de manière à 
obtenir : 





| Prologue chaîne | Longueur | Objet à créer | 


2- Cet objet étant placé dans la pile, la seconde étape 
consiste à décaler l'adresse contenue dans la pile de 
manière à ce que l’objet pointé soit l’objet créé et non 
plus la chaîne. 


La première étape est réalisée par le programme ass. 
La liste des codes hexadécimaux étant placée dans 
une chaîne, le programme prend 2 codes consécutifs 
et crée le CHR correspondant de manière à ce que les 
codes présents dans la Ram soient ceux désirés. 
Comme le microprocesseur l'attend, les codes ASCII 
sont stockés dans l’ordre (quartet de poids faible, 
quartets de poids fort), il faut inverser les 2 chiffres 
hexadécimaux avant de faire le cHR. Voici le listing de 
ASS : 


« + LM On place La chaîne contenant Les 
codes hexadécimaux dans La 
variable temporaire LM. 
« HEX Passage en mode hexadécimal. 


un Chaîne vide : y seront ajoutés Les 


CHR représentant les codes. 
1'LM SIZE FOR X Boucle pour prendre tous Les 
codes hexadécimaux. 
nu préparation de La conversion de 
deux nombres hexa sous forme de 


chaîne en un nombre binaire. 


LM X DUP2 On prend deux chiffres hexa 

1 + DUP et on les inverse. Exemple : 

SUB 3 ROLLD si on entre "12341 pour X=1 

DUP SUB + on obtient "21! 

+ STR+ On ajoute “#! et on convertit en 


un nombre binaire (ex "211 -> #21) 


B+R CHR On prend Le CHR correspondant, 
dans l'exemple CHR(33) ; en 
mémoire seront stockés, et 
dans cet ordre, Les codes 1 et 2 


+ On ajoute CHR à La chaîne résultat 


(ii au départ). 
2 STEP Couple de caractères suivant. 
» » 
Le second programme, c’est -LEX, qui à partir de la 
chaîne contenant l’objet place l’objet dans la pile : ce 
programme ne pouvait être réalisé qu’en langage 
machine. Cycle infernal me direz vous ! 
Heureusement non. Là encore, on procède en 
plusieurs étapes : 


- On transforme le listing des codes en un code 
exécutable grâce à Ass. 


- On stocke -LEX (sous forme de chaîne) en début de 
menu USER. On connaît alors exactement l’endroit 
où il se trouve : 





| | | 
| Prologue chaîne | Longueur L | ->LEX Lui même | 
Leslie es 
| 
--->|<- Fin MEV-(L-5)| 
Fin de MEV->| 


< 5 


Ainsi en faisant (Fin de MEV-L+5) SYSEVAL, on 
pourra démarrer +LEX. Comme -+LEX prend une chaîne 
dans la pile et retourne l’objet qu’elle contient, on 
place -LEx dans la pile avant de faire ce SYSEVAL. À ce 
stade, on a le vrai programme -LEX dans la pile : il ne 
reste plus qu’à le stocker dans -LEx ; on perd la chaîne 
qui n’est plus d’aucune utilité. Voici le listing de +LEx : 


Code Mnémoni que Commentaire 
76C20 CON(5) #02C67 Objet : programme 
5B3C1 CON(5) #1C3B5  Routine vérifiant La 
présence d'au moins un 
élément dans La pile. 
69C20 CON(5) #02C96 Objet : Assembly code 
deb 
E1000 CON(5) fin-deb Longueur du Prgm 
143 A=DAT1 À A=" Objet niv 1 
133 AD1EX 
179 D1=D1+ 10 
133 AD1EX A="chaîne+10 ="Objet créé 
141 DATI=A A Ecriture nouvelle adresse 
dans la pile 
142 A=DATO A fin de programme : 
164 DO=D0+ 5 cf explications plus bas 
808C PC=(A) 
09F20 CON(5) #02F90 fin de l'objet programme 
fin 
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Il faut savoir que : 

- D1 est l'adresse du sommet de la pile 

- DO est le pointeur RPL : à la fin de chaque 
programme assembleur, il faut toujours faire : 

A=DATO A 

DO=D0+ 5 

PC=(A) 


C’est en fait ceci qui permet l'exécution de l’objet 
suivant (ici 02F90, fin de structure). Une fois les 
codes entrés puis assemblés grâce à ASS, on procède 
comme expliqué plus haut. L'adresse du SYSEVAL à 
effectuer est : 

#4FFCE (#50000 - #32) en version standard 
#51FCE (#52000 - #32) en version 6 Ko 

#5SFFCE (#60000 - #32) en version 34 Ko 

où #32 (50) est la longueur du programme -LEx. 


Dorénavant pour créer un objet dans la pile aucun 
SYSEVAL n’est plus à faire. Par exemple, créons 
artificiellement "PPC" dans la pile : 

Codes : E4A20B0000050534 

Pour le créer : "E4A20B0000050534" [ASS] [-+LEX] 


A noter une chose intéressante : si on crée un nom 
(prologue : 02D12) comportant des caractères non 
acceptés au clavier (par exemple : espace, [, ] ou tout 
autre caractère), il sera accepté pour un STo (la 
vérification de la bonne syntaxe d’un nom se fait à 
l'entrée et non lors du sT0. Par exemple on peut créer 
un programme nommé ‘ABC’, entrez. 
"21D20501402240234" [ASS] [+LEX]. 


Il y aura alors ’A B C’ dans la pile et le STo sera 
possible. De cette manière, on peut créer des 
programmes portant le même nom qu’une instruction 
RPL et ce programme sera prioritaire sur 
l'instruction mais seulement s’il est lancé du clavier et 
non exécuté par l’intermédaire du menu contenant 
l'instruction. Ainsi SYSEVAL et CLUSR peuvent être 
facilement recréées. Par exemple pour CLUSR : 


<< MET LE CODE ??? " 1 DISP 1000 .1 BEEP >> 
"21D205034C4553525" [ASS] [-LEX] [STO] 


Dorénavant, toute tentative pour faire un CLUSR ne 
pourra aboutir. Il est intéressant de remarquer qu’une 
fois le programme cLUSR créé, il est possible d’entrer 
directement le nom CLUSR sans passer par ASS. Pour 
revenir à un état normal : 'CLUSR' [PURGE]. 


Dernier point : comment concevoir un Lex pour le 
HP-28C. 


Tout dépend si vous désirez mixer des instructions 
RPL à de l’assembleur ou faire un programme 
assembleur seul. Dans le second cas, créer le 
programme assembleur en commençant par le 
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prologue Assembly code. Dans le premier cas, réaliser 
une structure composite (prologue de programme) 
contenant les instructions RPL et un ou plusieurs 
Assembly codes. 


Dans tout code assembleur : 

- Sauvegarder les registres DO, D1, B et D si besoin 
est 

- Terminer par la récupération éventuelle des dits 
registres puis par : 

A=DATO 

DO=DO+ 5 

PC=(A) 


Dans le cas de la structure composite programme, ne 
pas oublier le 02F90 terminal. 


Je ne saurais trop vous conseiller l’achat d’un livre sur 
le HP-71B contenant les instructions avec leurs codes 
(HDS par exemple) ou la lecture des articles de 
Jacques Baudier dans JPC 46 page 25 et JPC 47 page 
26. 


A présent, c’est à vous ! Et envoyez vos réalisations 
au Journal... 


En remerciant Pierre David et Janick Taillandier 
pour leur aide et leur patience, Graeme Cawsey pour 
sa liste des différents prologues et Sébastien Lalande 
pour son aide lors de l’analyse du Row Driver 
Waveform. 


Paul Courbis (392) 


NDLR : Il est bien entendu inutile de contacter HP à propos des 
informations contenues dans cet article. Il faut également noter 
que toutes les adresses données sont relatives au HP-28C version 
1BB, elles peuvent être différentes sur les versions ultérieures. 





PEEK ET POKE POUR LE HP-28 


Après le PEEk de Wlodek Mier-Jedrzejowicz publié 
dans JPC 47 qui ne permettait que peu de facilités, il 
devenait nécessaire de créer un PEEK plus facile à 
utiliser. Grâce aux découvertes réalisées sur la 
structure des objets dans le HP-28C (voir l’article 
précédent) il est devenu possible de créer un PEEK 
fiable et commode. 


Syntaxe : 
Niveau 2 : adresse du PEEK 
Niveau 1 : nombre de quartets à lire. 


Ces deux nombres doivent être des entiers binaires. 
Attention : aucune vérification n’est faite sur le type 
des objets pour rendre le programme le plus court 
possible. 


En sortie : une chaîne de caractères contenant les 
caractères 0, 1,.., 9, A, E, F représentant le contenu 
des quartets (nombres hexadécimaux). 


Pour entrer le programme, entrez d’abord ASS et +LEX, 
si ce n’est pas déjà fait. Ensuite, entrez sous la forme 
d’une chaîne hexadécimale les nombres contenus 
dans la colonne Code du listing, en une seule ligne, 
sans espace, puis exécutez ASS et +LEX (voir article 
précédent et JPC 50 page 8). Stockez le résultat dans 
1PEEK'. Ce programme est alors prêt à servir. 


Code Label Mnemonique Commentaires 


76C20 CON(5) #02C67 Début de programme 

5SA3C1 CON(5) #1C3A5 Vérifie La présence 
d'au moins deux 
éléments sur La pile. 

07A20 CON(5) #02A70 ‘ 

60000 CON(5) #00006 . #0 

0 CON(1) #0 ‘ 

BF543 CON(5) #345FB additionne 2 entiers 
hexadécimaux on recrée 
un nouveau nombre hexa 
en mémoire. 

5F020 CON(5) #020F5 SWAP 

07A20 CON(5) #02A70 : 

60000 CON(5) #00006 . #0 

0 CON(1) #0 : 

BF543 CON(5) #345FB + 

5F020 CON(5) #020F5 SWAP 

E4A20 CON(5) #O2A4E "amorce de La chaîne 

50000 CON(5) #00005 qui contiendra Le 
résultat du PEEK 

FB920 LO CON(5) #029BF Byte 00 (sera utilisé 

00 CON(2) #00 pour créer un CHR) 

69C20 CON(5) #02096 Assembly code 

C6000 deb CON(5) fini-deb1 Longueur du code 

132 ADOEX R2 := DO 

102 R2=A 

133 AD1EX R3 := D1 

103 R3=A 

133 AD1EX 

17E D1=D1+ 15 D1 = * adresse 

143 A=DATI A 

133 AD1EX 

179 D1=D1+ 10 

143 A=DAT1 A 

132 ADOEX DO = * du PEEK 


113 
133 
143 
133 
174 
AEO 
15A0 
3103 
A6A 
3193 
9EA 
90 
3170 
A6A 
149 
113 
133 
112 
132 
142 
164 
808c 
FC630 fini 


L11 


69c20 
E6000 deb2 
133 
103 
133 
179 
143 
133 
179 
143 
133 
170 
133 
141 
113 
133 
174 
143 
133 
179 
143 
133 
1c0 
133 
141 
8A8 
11 
132 
340F000 
EA 
152 


113 L21 


A=R3 
AD1EX 
A=DAT1 
AD1EX 
D1=D1+ 
A=0 
A=DATO 
LCHEX 
A=A+C 
LCHEX 
?2A<=C 
GOYES 
LCHEX 
A=A+C 
DAT1=A 
A=R3 
ADIEX 
A=R2 
ADOEX 
A=DATO 
DO=DO+ 
PC=(A) 
CON(5) 


CON(5) 
CON(5) 
ADIEX 
R3=A 
AD1EX 
D1=D1+ 
A=DAT1 
AD1EX 
D1=D1+ 
A=DATI 
ADIEX 
D1=D1+ 
ADIEX 
DAT1=A 
A=R3 
AD1EX 
D1=D1+ 
A=DAT1 
AD1EX 
D1=D1+ 
A=DATI 
AD1EX 
D1=D1- 
ADIEX 
DAT1=A 
?A=0 
GOYES 
ADOEX 
LCHEX 
A=A-C 
ADOEX 
A=R3 


- > 1 


#30 


#39 


L11 
#07 


#036CF 


#02C96 
fin2-deb2 


A 
A 
L21 


#000F0 
A 


D1=" BYTE (objet) 
D1=" BYTE (où écrire) 


On Lit un quartet 


. Contenu du 


. quartet -> 
. code-caractère 


x quan nan... 


UF) 


code dans octet 
On récupère D1 


On récupère DO 


fin de routine 


Cette routine prend une 
chaîne + un BYTE dans 
la pile et retourne 
Chaîne + CHR (BYTE) 
Assembly code 

Longueur 

Sauvegarde de D1 

dans R3 


D1=" où est l'adresse 
du PEEK 

D1= Adresse du PEEK 
On l'incrémente 


et on l'écrit 


D1=" où est La longueur 
A= longueur PEEK 


On décrémente longueur 


Longueur nulle -> fini 


On décrémente DO pour 
continuer en LO 


Lors du prochain 
A=DATO DO=D0+ 5 PC=(A) 
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133 AD1EX 


142 A=DATO A 

164 DO=D0+ 5 

808C PC=(A) 

69c20 CON(5) #02C96 
72000 deb3 CON(5) fin3-deb3 
133 AD1EX 

103 R3=A 

133 AD1EX 

143 A=DAT1 A 

179 D1=D1+ 10 

141 DATI=A A 

113 A=R3 

133 AD1EX 

142 A=DATO A 

164 DO=D0+ 5 

808C PC=(A) 


A2120 fin3 CON(5) #0212A 
09F20 CON(5) #02F90 


Après le PEEK voici le POKE : 


Syntaxe : 


On récupère D1 


. fin de routine 


. dans La pile 


. 3 = #adr 

. 2 = #len 

- 1 = "résultat" 
. devient 

.- 3 = "résultat" 
. 2 = #len 


. 1 = "résultat 


. après Le DROP2 
. 1 = "résultat" 
DROP2 

fin de structure 


Niveau 2 : adresse (entier binaire) 
Niveau 1 : chaîne contenant les codes. 


Exemple : 
hexadécimal) 
#40079,...,#4007F. 


Entrée du programme : 


#40078 "FFFFFFFF" POKE place 15 (#F en 
dans les 


8  quartets #40078, 


taper les nombres de la 


première colonne sous forme d’une chaîne, en une 
seule ligne, sans espace puis [ASS] et [-LEX]. 


Code Label Mnemonique 


76C20 CON(5) #02C67 
5A3C1 CONC5) #1C3A5 
69c20 CON(5) #020C96 
C9000 deb CON(5) fin-deb 
132 ADOEX 

103 R3=A 

AFC ABEX W 

102 R2=A 

133 AD1EX 

101 R1=A 

133 AD1EX 

174 D1=D1+ 5 

143 A=DAT1 A 

133 AD1EX 

179 D1=D1+ 10 

143 A=DAT1 A 

132 ADOEX 

111 A=R1 

133 AD1EX 

143 A=DAT1 A 
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Commentaires 

Structure programme 

è éléments dans la pile 
Assembly code 

Longueur code 

On sauve DO 

On sauve B 


On sauve D1 


D1 pointe sur #adresse 
dans La pile 


DO= * du POKE 


133 AD1EX 

174 D1=D1+ 5 

143 A=DAT1 A 

3450000 LCHEX #00005 

DC ABEX A B= longueur + 5 
174 D1=D1+ 5 D1= * début chaîne 
Al L1 B=B-C A 

8A9 ?2B=0 A POKE fini ? 

13 GOYES L3 

14B A=DAT1 B 

3103 LCHEX #30 : 

B6A A=A-C B . code ASCII 
3190 LCHEX #09 . “> de OàF 
9EA ?2A<=C B : 

90 GOYES Le " 

3170 LCHEX #07 é 

B6A A=A-C B k 

1580 L2 DATO=A 1 On fait Le POKE 
160 DO=D0+ 1 . caractère suivant 
171 D1=D1+ 2 

3420000 LCHEX #00002 

6DCF GOTO LA 

112 L3 A=R2 

AFC ABEX On récupère B 
113 A=R3 

132 ADOEX On récupère DO 
111 A=R1 

133 AD1EX On récupère D1 
142 A=DATO A 

164 DO=D0+ 5 . fin de routine 
808c PC=(A) : 

A2120 CON(5) #0212A DROP2 

09F20 CON(5) #02F90 fin de structure 
Remarque le programme sauve les éléments 


présents dans la pile avec la routine #1C3A5. Par la 
suite, un appel est fait à la routine #0212A qui est un 
DROP2 différent du standard, parce qu’il ne 
sauvegarde pas dans LAST. Aüïnsi, la modification 
faite par PEEK dans la pile n’est pas répercutée dans 
LAST.. 


Paul Courbis (392) 





HP41 


M. Markov Utilitaires de gestion de disques (acte III) 28 
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UTILITAIRES DE 
GESTION DE DISQUES 
(ACTE Ill) 


Les fonctions WA et RA étendent les possibilités de WRTA 
et READA. Elles vous permettent de sauvegarder toute 
la mémoire du HP-41, y compris les mémoires 
étendues, sur un support de masse. Les informations 
sont stockées dans un gros fichier de 1360 registres de 
type WA,A. Moins de 1360 registres seront utilisés si 
votre HP-41C n’est pas équipé d’un module Quad. 


Ces programmes permettent à lutilisateur de tirer 
pleinement profit des mémoires étendues en 
fournissant un moyen simple et rapide de restaurer 
tous les fichiers, après un MEMORY LOST, en une 
seule opération. Le temps économisé en utilisant WA et 
RA est d’autant plus important que le nombre de 
fichiers est élevé. 


Ce programme vous permet d’utiliser la mémoire 
étendue comme une unité de stockage de masse 
portable et très fiable en fournissant un moyen de 
sauvegarde commode. 


HISTORIQUE 


Je crois que les routines WA et RA ont été initialement 
publiées dans le journal du club de Melbourne 
Technical Notes (numéro 17 page 77). L'auteur était 
Michael Pocksteiner et le listing était daté du 25 
novembre 1983. Cette première version de 108 octets 
ne requérait pas de module Rom. 


Vers la fin de 1984, Gerhard Kruse m’a envoyé une 
version très courte de WA et RA qui n’utilisait pas la 
programmation synthétique mais les fonctions du 
module CCD ROM non encore disponible à l’époque. 


J’ai réécrit le programme en utilisant le minimum de 
fonctions synthétiques et les fonctions de traitement 
de chaînes de caractères disponibles dans le module 
Extended 1/0. Vous pouvez utiliser les fonctions 
équivalentes du module HP-IL Development. Cette 
version comprend des sécurités qui minimisent les 
risques de l'utilisateur dans la mesure où ce 
programme manipule le contenu du registre d'état c. 


Les 1360 registres des fichiers WA,A utilisent 43 
secteurs du support soit 9 % d’une cassette ou 2 
d’une disquette. L'espace en question n’est pas 
immédiatement réutilisable si vous purgez le fichier. 
Certains contrôleurs permettent de compacter le 
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support, mais ceci doit être évité en raison de l’usure 
du support et de l’appareil engendrée par l'opération. 
Vous avez donc intérêt à contrôler le nombre de ces 
fichiers soigneusement. De plus, comme l’espace 
correspondant n’est pas récupéré, il n’est pas utile de 
purger ces fichiers à moins que vous ne les remplaciez 
par des fichiers de données de plus de 1376 registres. 


En général, un ou deux fichiers WA,A devraient suffir à 
contenir votre environnement de travail : les deux 
fichiers étant protégés en écriture pour éviter un 
effacement accidentel. Un autre fichier, non protégé, 
est utile quand vous developpez de nouveaux 
programmes. 


Environ 30 % du fichier ne contient pas d’information 
ou de l’information redondante. C’est le prix à payer 
pour avoir un temps de rechargement court. Si vous 
souhaitez optimiser l’espace, utilisez les fonctions 
standard. 


MODE D'EMPLOI 


Vous pouvez utiliser WA et RA exactement comme vous 
utilisez MRTA Où READA à partir du moment où le 
programme est en mémoire principale. Vous devez 
vous assurez que le modules HP-IL et Extended 1/0 
sont bien présents, que la boucle HP-IL est 
convenablement branchée et que le nom du fichier est 
placé dans le registre ALPHA avant d’exécuter WA ou 
RA. De plus, si vous utilisez RA assurez vous que la 
configuration mémoire est bien la même que celle 
existante au moment du MA. 


wA et RA doivent transférer à peu près quatre fois plus 
de données que READA et WRTA une fois la recherche 
dans le catalogue effectuée. Ces fonctions dureront 
donc environ quatre fois plus longtemps. 


Vérifiez également que votre lecteur a une batterie 
suffisament chargée avant d’exécuter WA et RA : c’est 
une bonne idée d’avoir le chargeur branché. Enfin, 
évitez d’être en mode TRACE. 


Attention ! N’interrompez pas WA et RA. Ces fonctions 
modifient temporairement le registre d’état c. Une 
interruption conduit de manière certaine au 
MEMORY LOST, à moins que vous ne restauriez le 
rideau à sa valeur d’origine. 


Les erreurs HP-IL telles que NO DRIVE, NO MEDIUM, FILE 
NOT FOUND, NONEXISTENT (pas de module HP-IL), BAD 
MEDIUM, NO ROOM (mauvaise configuration mémoire avec 
RA) terminent le programme et provoquent un BEEP. 
Le programme restaure automatiquement le registre 
c. Ceci permet à utilisateur de corriger le problème 
et de recommencer. 


Si vous interrompez ce programme alors que le 
témoin BUSY du lecteur est allumé, exécutez d’abord 
un CLRLOOP ; toutefois, vous risquez de devoir 
reformatter le support. Ensuite, XEQ 00 restaurera le 
contenu du registre c. Si vous avez de la chance vous 
pourrez éviter le MEMORY LOST. 


Ce qui suit ne s'adresse qu’à ceux qui ont recours à la 
programmation synthétique pour déplacer le rideau 
(adresse du registre 00). Celui-ci doit être en 
mémoire principale quand vous exécutez WA. Si le 
rideau se trouve sur un des registres d'état ou en 
mémoire étendue, il en résultera sans doute une perte 
de place sur le support. Toutes sortes d’autres 
problèmes peuvent également survenir qui conduisent 
plus où moins sûrement au MEMORY LOST. 


AMELIORATIONS DE WA 


wA peut être amélioré pour permettre l’utilisation de 
tout l’espace de stockage d’un disque (voir première 
partie de cet article dans JPC 48 page 8). Vous 
pouvez, bien sur, créer un fichier de données de 1360 
registres et le purger. Cette procédure a un 
inconvénient : le temps passé pour remettre à zero le 
fichier. 


La méthode la plus simple pour améliorer WA est la 
suivante : 

- mettre en place un point d’entrée global après la 
ligne 71 du programme WRTP / CREATE ; un LBL "O1" 
(label alphabétique et non numérique) est un bon 
choix. 

- utiliser WA2 au lieu de WA (voir listings). 


wA2 n’a pas toutes les sécurités inclues dans wa. La 
raison en est que WA2 ne peut faire la différence entre 
des erreurs système HP-IL et l’erreur invalide MEDM 
FULL. Ceci implique que vous devez faire d’autant plus 
attention à ne pas provoquer d’erreurs système. Si 
une vraie erreur survient, le programme au LBL 01 ne 
peut créer une entrée fictive, vous obtiendrez alors un 
message tel que TRANSMIT ERR. Si ceci survient, 
restaurez le registre c immédiatement en effectuant 
GTO "WA2" et XEQ 00. 


UN PEU DE THEORIE 


La fonction wa du module HP-IL doit fonctionner 
avec toutes les HP-41 ayant 64, 128 192, 256 ou 330 
registres de mémoire principale en fonction du 
nombre de modules mémoire enfichés. Par 
conséquent, WRTA appelle le sous programme 
assembleur FNDEND à l'adresse 1730,4 pour déterminer 
l'adresse du dernier registre à sauvegarder. 


FNDEND calcule cette adresse en vérifiant l'existence de 
chaque registre en partant de l’adresse donnée pour 
RO0. Cette routine accepte n'importe quelle adresse 
de rideau donnée dans le registre c et continue 
jusqu’a ce qu’un vide soit trouvé comme, par exemple, 
à l'adresse 200,,. 


Comme la zone contenant l’adresse de ROO fait 12 
bits, il est théoriquement possible d’avoir l'adresse du 
rideau en FFF,,, ou 4095, même si la mémoire 
principale se termine en 1FF,,. Ainsi, en manipulant 
le contenu du registre c, on peut contraindre WA à faire 
de très grands fichiers WA. 


L'espace mémoire va, en fait, de 000,, à 3FF,,, soit 
1024 registres. Si vous essayez de lire ou d’écrire dans 
un registre à une adresse plus grande que 3FF;;, 
l'adresse réelle sera modulo 1024. Aïnsi l'adresse 
400,4 est la même que 000,, et 5FF,4 est la même 
que 1FF,,. Cette propriété permet de copier toute la 
mémoire du HP-41. 


Notez que le plus petit fichier WA,A que lon peut 
utiliser pour sauvegarder la mémoire du module 
Extended Functions sur une HP-41CV / CX fait 1360 
registres. 418 sont donc vides (pas de mémoire à cette 
adresse) ou contiennent de l'information redondante. 
En d’autres termes, 13 secteurs sur un total de 43, soit 
30 % de la capacité du fichier, sont mal employés. 


Un des points clef de ce programme est l'exécution 
automatique : quand vous exécutez RA, vous transférez 
le contrôle à la copie de RA que vous avez stockée au 
ua, Le programme utilise cette caractéristique pour 
restaurer le rideau sans intervention de l'utilisateur. 


L'’exécution automatique d’autres programmes 
devrait être possible car WRTA fait une copie exacte de 
la mémoire, y compris la pile d’adresses de retour. Le 
programme à exécuter devrait donc appeler WA 
comme sous programme. Ensuite, quand vous 
exécutez RA, vous devez retourner au programme 
appelant après avoir restauré le contenu du registre c. 
Tout programme utilisant cette possibilité doit être 
conçu pour éviter une activation inopinée de wa. Ceci 
se fait très bien par un GT0, par exemple : 


GTO 00, XEQ "WA'", LBL 00, .... 
Si vous voulez stocker le fichier, utilisez GTO. nn pour 


vous positionner sur linstruction XEQ ‘“HA", puis 
appuyez sur [R/S1. 
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ANALYSE DETAILLEE 


Le sous-programme au LBL 00 déplace le rideau. Il est 
conçu pour utiliser un seul bit de l’adresse du registre 
ROO contenue dans c. En pratique, il augmente ou 
diminue l’adresse de 1024 registres en fonction des 
besoins. Le registre ALPHA est utilisé puis restauré. 
La pile est utilisée et non restaurée. 


L’instruction X<=Y? de la ligne 21 détermine si 
l'adresse du registre RO00 doit être incrémentée ou 
décrémentée. Les utilisateurs « avancés » doivent 
avoir conscience que le test d'égalité n’est utilisé que 
lorsque l'adresse initiale du rideau est stockée dans 
les registres d’état. Vous pouvez donc préférer x<y? 
qui est légerement plus rapide. 


Le reste de l'utilitaire, lignes 1 à 14, utilise un système 
complexe de flags destiné à minimiser le temps 
d'exécution, à mettre en place la fonction 
d’auto-exécution et à fournir une récupération 
d'erreurs HP-IL en douceur. 


Quand vous exécutez RA, le flag 11 est effacé. 
Cependant, après avoir exécuté READA à la ligne 12, 
vous reprenez en ligne 11 avec le flag 11 levé, comme 
laissé par WA. Ainsi, vous n’entrez pas dans une boucle 
infinie. Le flag 11 est effacé et le programme continue 
en ligne 13 en restaurant le rideau. 


Michael Markov (301) 


Traduction : Janick Taillandier (246) 






Programmes WA et RA : 


O1*LBL "WA! 
SF 11 GTO 01 


O&*LBL ''RA!! 
CF:11 


06*LBL 01 
XEQ 00 SF 25 
FC?C 25 BEEP 


FS? 11 WRTA FC?C 11 READA 


15*LBL 00 
RCL © X<> M 
YTOAX R° R° 


-3 ATOXX 64 X<=Y? 
X<> M STO c END 


CHS + -3 
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Programmes WA2 et RA : 


O1*LBL 
SF 11 


04*LBL 
CF 11 


06*LBL 
XEQ 00 


12*LBL 
RCL c 
YTOAX 


28*LBL 
SF 25 


HyJA2" 
GTO 01 


"RA'" 


01 


FS? 11 XEQ 02 FC?2C 11 READA 
00 
X<> M 


R* R* 


-3 ATOXX 64 X<=Y? 
X<> M STO c RTN 


CHS + -3 


02 


WRTA FS?C 25 RTN 43 XEQ "O1" 


WRTA END 








HP75 


J.Y. Hervé KEYLEX pour HP-75 32 
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KEYLEX 


Ce fichier Lex de 195 octets fournit six nouvelles 
fonctions programmables développant l'utilisation du 
clavier du HP-75. Il rend possibles de nombreuses 
interactions avec la machine, et facilite en particulier 
les branchements par menus. 


UNLOCK 

Cette fonction met le clavier dans sa configuration 
normale (caractères en minuscules). 

SHLOCK 

Cette fonction bloque le clavier en configuration 


majuscules, comme avec la séquence manuelle 
[SHIFT] [LOCK]. 


CTLOCK 
Cette fonction active le pavé numérique de la 


machine (même effet que la séquence manuelle 
[CTRL] [LOCK] ). 


WKEY$ 


Cette fonction est identique à l’instruction KEY$, à ceci 
près qu’elle attend qu’une touche ait été pressée pour 


s'exécuter. Elle correspond à la séquence 
programmée : 

100 AS = KEY$ à IF A$ = "! THEN GOTO 100 

GETKEY (A$) 


Cette fonction attend qu’une touche, ou qu’une 


séquence de touches, correspondant à lun des 


caractères indiqués dans la chaîne A$, soit pressée. 
Elle fournit en retour la position du caractère à 
l'intérieur de ladite chaîne. 

Exemple : A = GETKEY ("ON") 


Si la touche IN] est pressée, on aura A=2. 
GETMSG (M$,A$) 


Cette fonction est exécutée de la même façon que 
GETKEY, et fournit en plus à l’affichage le message M$. 
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Exemple d'utilisation dans un menu : 


100 A=GETMSG (Imprimer? Oui/Nont, NO") 
110 ON A GOTO 300,200 

200 <routine d'impression > 

300 <poursuite du programme > 


Deux remarques pour terminer : tout d’abord, on 
notera que le contrôle de cohérence de la réponse est 
notablement allégé (puisque la fonction n’admet que 
lun des caractères contenus dans la liste de réponses 
possibles A$), et enfin, le cas particulier où 
A$=CHRS$(0) : dans ce cas, l'appui sur [ATTN1 stoppe 
le programme. 


Jean Yves Hervé (450) 
KEYLEX 213 octets 


0001 F192C3008D4C911147A34b45594C455820206A00 2E 
0002 0A00260016004A004D00620069006F0076008900 19 
0003 BB004E004E004E004D004D004D00FFFF554E4C4F CD 
000% 43CB53484C4F43CB43544C4F43CB4745544D53C7 EO 
0005 4745544B45D9574B45S9A4FFFF61179E6E21A16D Eé 
0006 ABB406ES4CE4CESAOCÉCOGE30AES9EA16092B25E 7A 
0007 839EA160A801FO0F6A160A802F0F02A2D640AE36C 5A 
0008 E364ES6CESCEBAE3CE 1F5FF002182DCE111FE598 CO 
0009 CES408F9FACE4BOBF9045E93FO16CEA307640AE3 05 
0010 ESSE93648AF4E45E896326E002COF6F3640AE3CE C1 
0011 E4FC9E002E98CE5507CE60FC9E 3D 
0012 5D19 


A 


ASSEMBLEUR 


J. Baudier 


BASIC 


F. Duret-Lamouroux 


F, Duret-Lamouroux 


L’assembleur du HP-71 (acte VI) 


Modélistes, à vos tours ! 


Programme "PASVIS" 


39 


40 
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L'ASSEMBLEUR DU HP-71 
(ACTE Vi) 


Lors des derniers actes de notre initiation à 
assembleur, nous avons appris à écrire des fonctions 
qui acceptent des paramètres numériques en entrée 
et renvoient des nombres. 


Pour cette fois, je vous propose de voir comment il est 
possible d’écrire, dans un premier temps, des 
fonctions acceptant des chaînes de caractères en 
entrée et renvoyant une valeur numérique, puis dans 
un second d’autres qui renvoient de 
l’alphanumérique. 


Dans l’acte V, nous avons vu ce qu’est la Math Stack 
et comment elle fonctionne en ce qui concerne les 
paramètres numériques. Parmi les autres objets que 
l’on peut trouver sur cette pile existent les chaînes de 
caractères. On peut, en fait, avoir quatre types 
d'objets sur la Math Stack. Ces types sont : les 
nombres réels, les nombres complexes, les chaînes de 
caractères et les descripteurs de tableaux. Nous avons 
déjà vu que les nombres réels sont mis sur la Math 
Stack de la façon suivante : 


Het +----. + 
adresses 
basses 


adresses |[S| Mantisse | Exp | 
hautes, +-+--.-csccese nn + 
1 12 à 


En ce qui concerne les trois autres types d’objets, le 
HP-71 place devant eux sur la Math Stack un en-tête 
qui sert à les identifier. Ainsi pour un nombre 
complexe on aura : 


Partie réelle Partie imaginaire 

++. 
adresses |S| Mant. | E [S| Mant. | E |0E| adresses 
hautes +-+----- 
1 12 3... 1. 1 3 2 


mnste ete te sms che 


este -hete------+---+.-+ basses 


Les deux quartets placés sur le haut de la Math Stack 
(0E) que l’on appelle signature, indiquent que lobjet 
est un nombre complexe. Pour les chaînes de 
caractères la signature est F0. L’en-tête contient en 
plus de ces deux quartets, des informations parmi 
lesquelles on trouve la longueur de la chaîne en 
quartets : 


adresses hautes adresses basses 
Hesse. CORRE Hs. +--------. ++ 


IChaîne ... | Long.Max.| adresse [Longueur | OF | 
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On a donc ainsi, en partant des adresses hautes et en 
remontant vers les basses, la suite des caractères 
formant la chaîne, 9 quartets que l’on ignore pour le 
moment, la fameuse longueur de la chaîne et la 
signature. En ce qui concerne les descripteurs de 
tableaux, je vous propose de remettre leur étude à 
plus tard ou de consulter les Z.D.S. car nous n’en 
auront pas besoin cette fois. 

Pour éclaircir les choses, prenons simplement un 
exemple, avec l’appel de LENC"PoPoL") qui doit 
renvoyer 5 normalement. Le système dépose la chaîne 
sur la Math Stack et y ajoute l'en-tête. Nous nous 
retrouvons donc avec une pile qui ressemble à peu 
près à ceci : 


adresses basses 


t+ 

D1 --> | F | <-- Signature qui permet de 
lou reconnaître une chaîne. 
++ 
| A | <-- Longueur de La chaîne 
| 0 | en quartets soit ici 2*5 = 10 
[01] soit 00004 en hexa. 
10] 
10] 
++ 
| : | <-- On ne s'occupe pas de ce 
Leu qu'il y a ici. 
ls} 
l1} 
fil 
++ 
|: | <-- Ni ici d'ailleurs 
[1 
li 
[1] 
++ 

X --> | L |  <-- dernier caractère 
10] 
IP] 
|o 
| P | <-- premier caractère 
++ 


adresses hautes 


Comme pour traiter des paramètres numériques, il 
existe dans la Rom du HP-71 une routine (POPIS, 
POP one String) qui permet, non pas de charger la 
chaîne dans un registre (on n’aurait généralement pas 
assez de place), mais simplement de mettre D1 à la 
fin de la chaîne (X sur le schéma ci-dessus) et la 
longueur lue dans l’en-tête dans A[A]. On est donc 
prêt, après appel à POPIS, à traiter la chaîne. 








Jusqu’à présent, pour sortir des fonctions et renvoyer 
un résultat, nous avons utilisé la routine FNRTNI qui 
se charge de prendre le nombre contenu dans C et de 
le mettre sur la Math Stack. En effet, cette pile sert 
également  d’intermédiaire entre les  routines 
d'exécution des fonctions et le système. 


Pour renvoyer un argument, on est donc amené à 
l'écrire sur la Math Stack. Lorsque l’on fait cela, il 
faut faire très attention à ne pas remonter au delà de 
AVMEMS (voir le schéma sur l'emplacement de la 
Math Stack en Ram dans l'acte V). Si l’on étudie par 
exemple la routine FNRTNI on s'aperçoit que ceci 
est bien fait (cf Z.D.S. volume II, à l'adresse #0F216). 


Lorsque l’on désire écrire une fonction qui renvoie 
une chaîne de caractères, si aucun probième de place 
mémoire ne survient, on se retrouve avec le résultat 
final placé sur la Math Stack. On se débrouille pour 
avoir D1 pointant sur ie haut de la chaîne (dernier 
caractère) et R1 sur ia position mémoire suivant le 
premier caractère comme sur le schéma suivant : 


++ 
D1 --> | | 
E «| 


dernier caractère 


| 
++ 
R1 --> | | 


premier caractère 


On appelle ensuite, pour renvoyer notre résultat, la 
routine ADHEAD (ajout de l'en-tête) qui fabrique 
l'en-tête et l’ajoute sur le sommet de la pile. La 
longueur de la chaîne en quartets est alors la 
différence R1 - D1. 


Supposons que nous voulions écrire une fonction qui 
renvoie une chaîne dans laquelle tous les caractères 
sont remplacés par leurs successeurs dans l’ordre 
ASCII. Appelons cette fonction codes (lid sera 
comme d’habitude #5C et le token 14) et essayons de 
l'écrire. 


Un programme équivalent en Basic pourrait être : 
10 SUB CODE(A$) 

20 FOR I=1 TO LENCAS) 

30 A$CI,1]=CHR$SCNUMCAS [1] )+1) 


40  NEXT I 
50  DISP A$ 
60 END SUB 


On voit donc que l’on a besoin de répéter une action. 
En entrée, on utilisera donc POPIS et en sortie 
ADHEAD (bien que l’on n’en aie pas besoin puisque 
l’on ne modifie pas l'emplacement ni la longueur de 
la chaîne). 


Entre l’appel de ces deux routines, c’est à nous de 
nous débrouiller. Voici donc le Lex que je vous 
propose. Je vous laisse le soin de compléter le source 
avec les directives LEX, ENTRY, CHAR, KEY, TOKEN et autres. 


Remarque : pour que ADHEAD renvoie le résultat 
vers le système une fois son travail terminé, il faut le 
lui indiquer en mettant le bit 0 du registre ST à zéro 
(instruction ST=0). Voir à ce sujet les Z.D.S. II, 
paragraphe 14.14 ou les Z.D.S. III à l'adresse #181B7. 


POP1S EQU #0BD38  ‘'dépile!"! une chaîne 
ADHEAD EQU #181B7 ajoute l'en-tête 
NIBHEX 411 Le paramètre est unique et 


; est de type alphanumérique 


CODEe GOSBVL POPIS renvoie AA] et D1 
CD1EX ) 
RO=C ) on sauvegarde D1 dans RO 
CD1EX ) 

* jci on a : 1. D1 * Le dernier caractère 

# 2. mode hexa 

# 3. ALA] contient La longueur 

# de La chaîne en quartets 

* 

* on va faire maintenant : 

* 

* Tant que À <> 0 

* répéter | Lire un caractère 

« | Lui ajouter un 

L | Le remettre sur La Math Stack 

® | pointer Le caractère suivant 

* | décrémenter ALIA] de deux 

* 

* Mettre D1 dans R1 

* (R1 ” alors juste avant Le début de La chaîne) 

* Mettre RO dans D1 

* Mettre ST(0) à zéro (pour ADHEAD) 

* Appeler ADHEAD (fin du Lex) 

* 


boucle ?2A=0 A ALA] est-il nul ? 


GOYES fin si oui : fin 

C=DATI B met un caractère dans C[B] 
C=C+1 B ajoute un 

DATI=C B remet le caractère 

D1=D1+ 2 " Le caractère suivant 
A=A-1 À ) 

A=A-1 A ) ALAJ = AA] - 2 


GOTO boucle on recommence ... 


fin C=RO si on a fini : 
CD1EX ) on repositionne 
R1=C ) Les pointeurs D1 et RO. 
ST=0 0 pour ne pas revenir ... 


GOVLNG ADHEAD et bye bye 
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Une fois ce programme assemblé, on peut l'essayer 
en vérifiant que CODE$(*HAL') (cf 20017, L'Odyssée de 
l’espace) renvoie bien ce qu’il faut. 


Les spécialistes de l’écriture de fonctions de gestion 
de chaînes de caractères auront sans aucun doute 
remarqué que l’on peut écrire une version de ce Lex 
sans avoir à appeler ADHEAD pour sortir. En effet, 
la chaîne en sortie ayant la même longueur que celle 
d’entrée, on n’a pas besoin de regénérer le header. 
On peut donc remplacer la fin du Lex par : 


fin C=RO 
CD1EX D1 * Le dernier caractère 
D1=D1- 16 D1 * Le header 

EXPR EQU #0F23C 


GOVLNG EXPR 


Où EXPR est le point d’entrée de retour de fonction 
(du même genre que FNRTNI1) avec le résultat déjà 
placé sur la Math Stack. 


Essayons maintenant d’écrire une autre fonction qui, 
cette fois-ci, ne prend aucun paramètre et renvoie une 
chaîne de caractères. Je vous propose donc d’étudier 
la fonction Lock$ qui renvoie le mot de passe du 
HP-71. Ce mot de passe est rangé en mémoire à 
partir de #2F7B2 et prend 8 octets (voir à ce sujet un 
court article de moi-même dans le JPC 28 d'octobre 
1985 page 19). 


Notre Lex devra donc lire les caractères placés à cette 
adresse et les mettre sur la Math Stack avant 
d'appeler ADHEAD. Comme je l'ai dit plus haut, 
lorsque l’on réalise ceci, il faut prendre garde à ne pas 
faire déborder la pile en remontant au dessus de 
AVMEMS (AVailable MEMory Start). Nous avons 
déjà vu que lors de l’entrée dans un Lex on a D1 * 
Math Stack. On a aussi D[A] = AVMEMS. On 
pourra donc comparer D1 avec D[A] pour éviter les 
débordements. Il existe dans la Rom du HP-71 une 
routine qui nous convient parfaitement : il s’agit de 
STKCHR qui se charge de vérifier l’évolution de la 
pile et d’y mettre un octet. Ses paramètres d’entrée 
sont : 

- D1 ® Math Stack, 

- DJA] = AVMEMS et 

- C[B] = octet à mettre sur la pile. 


En sortie on a D1 décrémenté de deux ou l'erreur 
Insufficient Memory en cas de débordement de pile. 


Le mot de passe, éventuellement complété par des 0, 


prend donc huit octets. L’algorithme utilisé par ce Lex 
est donc le suivant : 
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sauvegarder DO dans RO ; 

sauver D1 dans R1 ; (R1 * Math Stack) 

mettre l'adresse du mot de passe dans DO :; 

boucle : Lire un caractère pointé par DO 
s'il est nul alors aller en fin 
mettre le caractère sur La pile 

(qui est pointée par D1) 

décrémenter D1 de deux ; 
incrémenter DO de deux ; 
si l'on n'a pas Lu 8 caractères 
alors aller en boucle ; 


. 


fin 


remettre RO dans DO ; 
appeler ADHEAD ; 


Avec cet algorithme, on se rend compte que l’on est 
amené à faire deux tests : un pour savoir si le 
caractère que l’on traite est nul et l’autre pour savoir 


si c’est le huitième. Dans les deux cas on stoppe. On 


va donc avoir besoin de compter le nombre de 
caractères lus. Pour cela, on peut utiliser par exemple 
le registre P que lon initialisera avec 8 et 
décrémentera à chaque lecture. Lorsque P vaudra 0 
c'est que l’on aura lu 8 octets. Le listing de ce Lex 
dont la seule fonction a pour id 15 est donc : 


LOCKWD EQU #2F7B2 adresse du mot de passe 
STKCHR EQU #18504 met Un octet sur La pile 
ADHEAD EQU #181B7 ajoute l'en-tête 
NIBHEX 00 pas de paramètre 
LOCKe CDOEX ) 
RO=C ) sauvegarde de DO dans RO 
CD1EX ) 
R1=C ) 
D1=C ) R1 = D1 * Math Stack 


DO=(5) LOCKHD 


DO * Le mot de passe 


P= 8 initialisation de P 
boucle C=DATO B lecture d'un caractère 
?2C=0 B est-il nul ? 
GOYES fin si oui on arrête 
GOSBVL STKCHR sinon on Le met sur La pile 
DO=D0+ 2 on pointe Le prochain 
P=P-1 
2P# O0 ) 


GOYES boucle 


) si P <> 0 on recommence 


fin C=RO ) 
DO=C ) on remet DO 
P= 0 pour ADHEAD (cf. I1.D.S.) 
ST=0 0 pas de retour pour ADHEAD 


GOVLNG ADHEAD 


END 


Avec le troisième Lex que je vous propose 
maintenant, nous allons obtenir la « fameuse » 
fonction LEFT$ du Basic Microsoft qui renvoie les 7 
premiers caractères de aA$ lors de lappel de 


s 


LEFT$CA$,n). Il est à noter que cette fonction ne 


manque pas à notre Basic puisque l'on peut la 
remplacer avantageusement par A$[1,n]. 


En entrée de ce Lex, nous avons sur la pile une valeur 
numérique et une chaîne de caractères. La première 
partie du code consistera donc à récupérer ces objets. 
On utilise POPIN puis FLTDH pour lire n et le 
convertir en hexadécimal dans A[AJ. Cette routine 
FLTDH réalise la conversion virgule flottante vers 
hexadécimal, c’est à dire que A[W] est converti en 
A[AI]. C’est en fait la fonction contraire de HDFLT 
vue lors de l’acte précédent avec le Lex CONTLEX. 


Au passage, on vérifie que cette valeur n’est pas 
complexe, ni négative ou hors limite. Dans ces 
différent cas, il y a génération du message Invalid 
Arg. 


Une fois toutes ces vérifications faites, on multiplie A 
par 2 (instruction A=A+A A) pour avoir une valeur 
représentant un nombre de quartets (et non d’octets) 
puis on range cette valeur dans RO. On peut alors 
appeler POP1S qui met la longueur de la chaîne dans 
A[A]. A partir de maintenant, il suffit de calculer les 
bonnes valeurs de R1 et de D1 pour obtenir le 
résultat souhaité. 


Les deux schémas suivants montrent l’état de la Math 


Stack en entrée et en sortie du Lex. Juste après le 
POPIS, D1 se trouve en X. 


| | adresses basses | 


| 
++ +---+ 
D1 --> |. | Huil 
: : valeur den  : 3 
1-1 |. 
+ --+ ++ 
le |. 
ë : en-tête de A$ : : 
L-l ll 
++ - ++ 
ets $ FRS ' 
ll | |. 
; ‘ : s <-- Di 
A$ : 
l- 1 | |. 
1. V |. 
++ -—. + -+ 
| | adresses hautes | | <-- R1=2 
avant après 


Pour obtenir R1, il faut calculer D1 + LEN(AS$), c’est 
à dire R1=D1+A[A]. On en profite également pour 
sauvegarder cette valeur de LEN(AS$) (qui est en 
quartets) car on s’en servira plus tard. 


Une fois R1 en place, il faut positionner D1 quelque 
part entre Y et Z en fonction de la valeur de n. En 
fait on doit avoir R1i-DI1 = n (en quartets). 
Cependant, il faut vérifier la cohérence des arguments 
c'est à dire si n est plus petit ou égal à LEN(A$) ou 
pas. En effet, si n est plus grand on renvoie A$ en 
entier. Par exemple LEFT$("JPC",192) doit renvoyer 
mypc", Sinon on calcule R1 et lon sen va par 
ADHEAD. Voici donc ce Lex : 


LEX ILEFTLEX! 

ID #5C 

MSG 0 

POLL 0 
POPIN  EQU #0BD1C dépile un nombre 
FLTDH EQU #1B223 conversion en hexa 
POP1S EQU #0BD38  ‘“dépile un chaîne! 
ADHEAD EQU #181B7 ajout de l'en-tête 
ARGERR EQU #0BF19 ERR:Invalid Arg 

ENTRY LEFTe 

CHAR  #F 

KEY 1LEFT$! 

TOKEN 15 

ENDTXT 

NIBHEX 8422 Syntaxe : LEFT$S(A$,n) 
LEFTe GOSBVL POPIN AM) =n 

GOC argerr si complexe : erreur 

D1=D1+ 16 pointe A$ 


GOSBVL FLTDH AIN] --> ALA] en hexa 
GONC  argerr 
A=A+A A 

RO=A sauvegarde 


si out of range ou NaN 
multiplication par 2 


GOSBVL POP1S A[AJ = LENCA$),D1 * chaîne 


* ici : RO=Nn 
* D1 ” fin de A$ 
. ALA] = LEN(A$) 
* on fait R1 = D1 + AA] 
CD1EX 
B=A A sauvegarde de LEN(A$) 
A=A+C À A * début de A$ 
R1=A R1 aussi 
CD1EX 
* jci : RO=Nn 
* D1 * fin de A$ 
* R1 * début de A$ (A[A] aussi) 
* 


BLA] = LEN(AS$) 
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* on vérifie alors si n >= LEN(A$) et dans ce 
* cas on renvoie la chaîne entière. 


C=RO C[IA] =n 
?2B<C A Si LEN(A$) <n 
GOYES fin alors on renvoie tout 


* sinon on fait D1 = R1 -n 
* c'est à dire D1 = A[A] - C[A] 


suite A=A-C A 
D1=A 


) D1 = ALA] * dernier 
) caractère à renvoyer 


fin ST=0 0 
GOVLNG ADHEAD 


pour ADHEAD 


argerr GOVLNG ARGERR renvoie ERR:Invalid Arg 


END 


Dans l'attente du prochain article, je vous propose de 
vous pencher sur l'écriture de deux nouvelles 
fonctions de la même famille que LEFTS, il s’agit de 
RIGHT$(A$,n), qui renvoie les r derniers caractères de 
A$ et de MID$CA$,p, L), qui renvoie au plus / caractères 
de A$ à partir du plè"e compris. J’apporterai dans 
l'acte VII une possibilité de solution pour ces deux 
fonctions. 


Je vous souhaite du succès dans l'écriture de ces deux 
fonctions et vous laisse consulter la documentation 
suivante qui vous permettra d’en savoir encore plus 
sur les fonctions alphanumériques. 


Dans les ZD.S, : 


Volume I : Chapitre 7 : Statement Parse, Decompile, 
and Execution : 

- 74.3 pour connaître les différents objets que l’on 
peut trouver sur la Math Stack et savoir comment ils 
sont représentés. 

- 7,44 sur POPIN. 


Volume I : Chapitre 9 : Utilities : 
- 9.3.1 sur les routines permettant de récupérer et de 


mettre des objets sur la Math Stack. 


Volume I : Chapitre 3 : Memory Structure : 
- 3.3.16 sur l'emplacement du mot de passe en RAM. 


Dans JPC : 
JPC 28 (octobre 85) : 


- Sur le mot de passe avec les langages Basic et Forth 
de moi-même, page 19. 
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Les points d’entrée suivants dans le volume II des 
LD 


- POPIN (#0BD1C) chapitre 14.2. 

- FLTDH (#1B223) chapitre 5.1. 

- ARGERR (#0BF19) chapitre 24.2. 
- POPIS (#0BD38) chapitre 14.4. 

- ADHEAD (#181B7) chapitre 14.14. 
- EXPR (#0F23C) chapitre 8.3. 

- STKCHR (#18504) chapitre 15.39. 


Jacques Baudier (192) 


MODELISTES, A VOS TOURS ! 


Le programme PASVIS pourra rendre service à tous 
ceux d’entre vous qui utilisent un tour et 
confectionnent des vis ou des écrous aux normes 
parfois bizarres, en particulier pour le modélisme. 


Ce programme est inspiré d’un programme écrit pour 
la HP-41 par Terry Eksted et publié par la User’s 
Library sous le numéro 1048C. 


Pour utilisation, il suffit de s’en remettre aux 
questions posées. 


En ce qui concerne la valeur à donner à la première 
passe il semble que 0,40 à 0,60 mm au diamètre (soit 
une profondeur de coupe de 0,20 à 0,30 mm) 
convienne pour la plupart des tours d'amateurs. Au 
cas où la première passe devrait être sensiblement 
réduite et où le nombre de passes deviendrait alors 
supérieur à …30, il conviendrait de modifier les lignes 
170 et 290 en remplaçant 30 par un nombre suffisant, 
sinon la dernière passe serait démesurément forte. 
Les modélistes sont heureusement des gens patients ! 


Notes sur le fonctionnement du programme : 


1- But: 


Lors de la réalisation d’un pas de vis au tour, calculer 
la profondeur des passes successives de façon à ce 
que la quantité de métal enlevée à chaque passe soit 
constante. 


2 - Formule de base : 
S=P"2*TAN(30) 
où: 


- S est la section du métal découpé, et 

- P est la profondeur de la passe au rayon (toutefois, 
le programme prévoit que les profondeurs soient 
données au diamètre). 


3 - On en déduit : 
- si D1 est le diamètre nominal, 
- si D3 est le diamètre après la passe de rang N, et 


- si P1 est la profondeur de la première passe (au 
diamètre); 


D3-=D1-(P1*SOR(N)) 


4 - Par ailleurs, le diamètre D2 du noyau de la vis est 
donné par la relation : 


D2=D1-(1,2264*Q) 
où Q est le pas de la vis. 
La dernière passe doit donc être telle que D3=D2. 


5 - Le diamètre de perçage de l’écrou est donné par la 
formule : 


D5=D1-(1,0825*Q) 


Pour les diamètres supérieurs à 4 mm, le programme 
ajoute 0,1 mm à la valeur calculée. 


6 - Le diamètre D4 après chaque passe est donné 
par : 


D4=D5+(P1*SOR(N)) 

7 - Le diamètre intérieur à fond de filet est : 
D6=D1+(0,866*Q/4) 

La dernière passe doit donc être telle que D4=D6. 
8 - Remarques : 


Le nombre de passes est déterminé, pour un diamètre 
donné, par la profondeur de la première passe. Pour 
réduire le nombre de passes, il y a donc intérêt à 
choisir une valeur aussi forte que possible pour la 
première passe, compte-tenu de la machine, de l'outil 
et de la matière travaillée. 


Le programme limite à 30 le nombre de passes ; au 
cas où ceci serait insuffisant dans le cas de très gros 
pas, il conviendrait de modifier le programme en 
conséquence. 


Le nombre de passes nécessaire peut être calculé par 
la formule : 


N=(((D1-D2)/2) 2)/P1"2 


François Duret-Lamouroux (329) 
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Programme l'PASVIS! (pour Les amateurs de tours) 


0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 


Ce programme permet de calculer Les diamètres successifs à usiner 
pour enlever à chaque passe une quantité constante de matière Lors 
du filetage d'une vis où d'un écrou. Cette quantité est fonction 
de La profondeur choisie pour La première passe qui dépend elle-même 
de La machine et de La matière usinée. 
Le programme fournit en outre Le diamètre de l'alésage nécessaire 
pour La confection de l'écrou. 
INPUT MDIAMETRE NOMINAL?:1",1 mm';D1$ Q D1=VAL(D1$) 
INPUT HPAS?:u,1 mm'':Q$ à Q=VAL(Q$) 
D2=D1-(1.2264*Q) 
PRINT '"DIAMETRE NOMINAL=";D1;TAB(5);"PAS=";Q;TAB(5):"DIAMETRE DU NOYAU=1;D2 
INPUT ''PROFONDEUR PREMIERE PASSE(diamètre)?:";P1 à PRINT 
PRINT “VIS- Diamètres à afficher:" à PRINT 
FOR A=1 TO INF 
D3=D1-(P1*SQR(A)) 
IF D3<=D2 OR A>30 THEN PRINT USING 180;A;D2 à GOTO 200 
PRINT USING 180;A;D3 
IMAGE "PASSE!“,X,DD,":1,X,DD.DD 
NEXT A 
PRINT @ PRINT "ECROU'" à PRINT 
D6=D1+.866*Q/4 
D5=D1-(1.0825*Q) à FIX 1 
IF D1>=4 THEN D5=D5+.1 
PRINT !'DIAMETRE D'ALESAGE:":D5;"mm"! à FIX 2 à PRINT 
PRINT "Diamètres à afficher:" 
FOR A=1 TO INF 
D4=D5+P1*SQR(A) 
IF D4>=D6 OR A>30 THEN PRINT USING 180;A;D6 à STOP 
PRINT USING 180;A;D4 
NEXT A 


JPC S1 Page 40 





Le Journal JPC est le bulletin de liaison entre les 
membres de l'Association "PPC Paris", régie par la loi 
de 1901. Le Club est éditeur du JPC, et son siège 
social est au 33, boulevard saint Martin, 75003 Paris. 


La maquette de ce numéro a été préparée et réalisée 
par Pierre David, Jean-Jacques Dhénin et Janick 
Taillandier, grâce à un système comprenant un 
HP71B, deux lecteurs de disquettes HP9114A, trois 
HP9807A, un HP9153, deux HP9154, deux HP9134 et 
une imprimante LaserJet. 


Directeur de la publication : P. David 
Numéro ISSN : 0762 - 381X 


ne, —— 


A 


ENGLISH SUMMARY 
JPC 51 - FEBRUARY 1988 


We are happy to send you our Journal with its new presentation. The cover color for 1988 is brown. 


Our General Meeting has elected a new board. The president is now Pierre David, the treasurer is Janick 
Taillandier, and the secretaries are Jean-Jacques Dhénin, Olivier Arbey, Jacques Baudier and Eric 
Gengoux. Pierre, who was vice-president, has been acting in fact as president for one year. 


This JPC issue begins with a summary of what was told during this meeting. 


This month, we have a large new products column. The infra-red module for the HP-41 allows you to use 
the HP-82240 printer (for the HP-18/28...). Next, a major announcement by Hewlett-Packard of four 
calculators is the HP-28/18 series. Since the article was written, we have received additional informations 
from Bill Wickes (via the Unix network) about the main differences between 28C and 28S$ : 


- 32 Kbytes of RAM, 

- directory system for USER menu, 

- custom menu in which you can combine user variables and built-in commands, 

- save, retrieve and combine LCD pictures/plots, 

- plotting continues despite math errors/exceptions, 

- AC) returns the I'Ÿ element of an array, Within an algebraic, allowing indexed variables. A(1,,9) works too, 
- programs decompile and print with automatic indentation to show control structures, 

- press [ON] [L] together to dump LCD image to printer at any time, and 

- singular matrix inversion is tied to the divide-by-zero exception flag. 


CMT is also introducing a new HP-41 compatible computer, a new HP-71 64 Kb Ram module, and will 
introduce this year an 8x40 characters HP-IL LCD display. 


We are very proud to present you the first article giving a very large view of the internal design of the 
HP-28C (version 1BB). This is a major work by Paul Courbis. He also gives two assembly language 
programs to help you explore the machine. We hope to read more informations about the machine soon... 


Next, we have the last article of the Michael Markov’s series about using HP-IL mass storage for the HP-41. 


A new HP-75 Lex file appears on page 32. Jean-Yves Hervé gives us 6 programmable functions to access 
keyboard capabilities. 


The HP-71 column is on page 34 with Jacques Baudier’s sixth article about HP-71 assembly language 
programming. Unfortunately, this series may be disturbed, because Jacques’s machine was stolen. 


Until next month, 


Happy Programming and JPC reading ! 


PPC Paris 
B.P. 604 
75028 Paris Cedex 01 


CONFERENCE INTERNATIONALE 
AUX ETATS-UNIS 


La firme américaine Corvallis MicroTechnology (modules Ram, Eprom, etc.) organise une conférence 
internationale au début du mois d’août 1988 à Corvallis, aux Etats Unis, près de l’usine Hewlett-Packard. 


Si vous souhaitez y assister, contactez le Club. Nous pourrons vous faire parvenir toutes les informations 
(dates, prix, logement sur place) que CMT nous a envoyées. 


